Merge pull request #25 from psibi/exit-code

Client gives non zero exit status for non-existent pages

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.

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 =

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