X-Git-Url: https://glassweightruler.freedombox.rocks/gitweb/xdg-ninja.git/blobdiff_plain/4f758de596c79f81bd3e8466478492102a6c9192..932a10db39f29909cb93b9afce14928dcc5e8326:/lib/Output.hs?ds=inline diff --git a/lib/Output.hs b/lib/Output.hs index d36db9d..ddc486a 100644 --- a/lib/Output.hs +++ b/lib/Output.hs @@ -1,6 +1,7 @@ module Output where import qualified Data.Text as T +import Data.Char (isSpace) import Data.Text.ANSI import Data.UUID import Data.UUID.V4 @@ -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 ()