Merge pull request #1 from psibi/master

Keep fork up-to-date
psibi · Oct 9, 2020 · e42aea9 · e42aea9
2 parents 12ab04e + 973b61a
commit e42aea9
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 2 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -1,3 +1,7 @@
+# 0.8.1
+
+* When pages are updated, the client now shows the download location.
+
 # 0.8.0
 
 * Split the library into more parts.

diff --git a/src/Tldr/App/Handler.hs b/src/Tldr/App/Handler.hs
@@ -92,8 +92,10 @@ updateTldrPages = do
   let repoDir = dataDir </> "tldr"
   repoExists <- doesDirectoryExist repoDir
   if repoExists
-    then runProcess_ $
-         setWorkingDir repoDir $ proc "git" ["pull", "origin", "master"]
+    then do
+         putStrLn $ "Downloading tldr pages to " ++ repoDir
+         runProcess_ $
+            setWorkingDir repoDir $ proc "git" ["pull", "origin", "master"]
     else initializeTldrPages
 
 computeLocale :: Maybe String -> Locale
@@ -137,6 +139,7 @@ initializeTldrPages = do
   unless initialized $ do
     dataDir <- getXdgDirectory XdgData tldrDirName
     createDirectoryIfMissing False dataDir
+    putStrLn $ "Initialising tldr page storage in " ++ dataDir
     runProcess_ $ setWorkingDir dataDir $ proc "git" ["clone", repoHttpsUrl]
 
 getCheckDirs :: ViewOptions -> [String]