Merge pull request #25 from psibi/exit-code

psibi · web-flow · commit 782cb36403ac · 2020-08-01T12:11:09.000+05:30
Client gives non zero exit status for non-existent pages
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -1,3 +1,7 @@
+# 0.7.1
+
+* Client gives non zero exit status for non-existent pages.
+
 # 0.7.0
 
 * Make it obey --language (-L) option.
diff --git a/app/Main.hs b/app/Main.hs
@@ -11,11 +11,12 @@ import Data.List (intercalate)
 import Data.Semigroup ((<>))
 import qualified Data.Set as Set
 import Data.Version (showVersion)
-import System.IO (stdout)
+import System.IO (stdout, stderr, hPutStrLn)
 import Options.Applicative
 import Paths_tldr (version)
 import System.Directory
 import System.Environment (getArgs, getExecutablePath, lookupEnv)
+import System.Exit (exitFailure)
 import System.FilePath
 import System.Process.Typed
 import Data.Char (toLower)
@@ -196,7 +197,9 @@ handleTldrOpts opts@TldrOpts {..} = do
         Just path -> renderPage path stdout
         Nothing -> do
           if checkLocale locale
-            then putStrLn ("No tldr entry for " <> (intercalate " " pages))
+            then do
+              hPutStrLn stderr ("No tldr entry for " <> (intercalate " " pages))
+              exitFailure
             else handleTldrOpts
                    (opts
                       { tldrAction =
diff --git a/package.yaml b/package.yaml
@@ -1,5 +1,5 @@
 name: tldr
-version: '0.7.0'
+version: '0.7.1'
 synopsis: Haskell tldr client
 description: |
   Haskell tldr client with support for viewing tldr pages. Has offline

-Original file line number
+Diff line change
@@ @@ -1,3 +1,7 @@ @@
 +# 0.7.1
++
 +* Client gives non zero exit status for non-existent pages.
++
 # 0.7.0
 * Make it obey --language (-L) option.