X-Git-Url: https://glassweightruler.freedombox.rocks/gitweb/xdg-ninja.git/blobdiff_plain/4f758de596c79f81bd3e8466478492102a6c9192..09dff2b80d5d91f8ee85ac76de1b3cc81f8ccd8e:/lib/Output.hs

diff --git a/lib/Output.hs b/lib/Output.hs
index d36db9d..ec66fce 100644
--- a/lib/Output.hs
+++ b/lib/Output.hs
@@ -1,12 +1,13 @@
 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           Program
 import           System.Exit
 import           System.Process
-import Program
 
 getFilename :: IO String
 getFilename = do
@@ -42,7 +43,9 @@ log mode name filename help = case mode of
       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 ()