module Marihana.Help
    ( marihanaHelp
    ) where

import System.Environment

marihanaHelp :: IO ()
marihanaHelp = do
    self <- getProgName
    putStr . unlines $
        concat ["Usage: ", self, " [OPTION]"] :
        "Options:" :
        "  init <directory>      Create a new blog" :
        "  build                 Build your blog" :
        "  help                  Print this message" :
        "  version               Print version of marihana" :
        []