Add more programs

[xdg-ninja.git] / lib / Output.hs

diff --git a/lib/Output.hs b/lib/Output.hs
index c9f963d10625390445ef385fe6f0546350f20937..ec66fce689513b138661dc314f4261f3d7af3b02 100644 (file)
--- a/lib/Output.hs
+++ b/lib/Output.hs
@@ -1,12 +1,13 @@
 module Output where
 
 module Output where
 

-import qualified Data.Text                as T
-import Data.Text.ANSI
+import           Data.Char      (isSpace)
+import qualified Data.Text      as T
+import           Data.Text.ANSI

 import           Data.UUID
 import           Data.UUID.V4
 import           Data.UUID
 import           Data.UUID.V4

+import           Program

 import           System.Exit
 import           System.Process
 import           System.Exit
 import           System.Process

-import Program

 
 getFilename :: IO String
 getFilename = do
 
 getFilename :: IO String
 getFilename = do


@@ -42,12 +43,14 @@ log mode name filename help = case mode of
       Output.log HELP name filename help
     SUCS -> putStrLn (line green name filename)
     HELP -> do
       Output.log HELP name filename help
     SUCS -> putStrLn (line green name filename)
     HELP -> do

-      md <- renderMarkdown help
+      md <- case (all isSpace help) of
+        True  -> renderMarkdown "_No help available._"
+        False -> renderMarkdown help

       putStr md
 
 logFile :: T.Text -> File -> Bool -> IO ()
 logFile programName file onFilesystem = case onFilesystem of
   False -> Output.log SUCS (T.unpack programName) (path file) (help file)
   True -> case (supportLevel file) of
       putStr md
 
 logFile :: T.Text -> File -> Bool -> IO ()
 logFile programName file onFilesystem = case onFilesystem of
   False -> Output.log SUCS (T.unpack programName) (path file) (help file)
   True -> case (supportLevel file) of

-    Unsupported -> Output.log WARN (T.unpack programName) (path file) (help file)
-    _ -> Output.log ERR (T.unpack programName) (path file) (help file)
+    Unsupported -> Output.log ERR (T.unpack programName) (path file) (help file)
+    _ -> Output.log WARN (T.unpack programName) (path file) (help file)