else return ()
build
+ putStrLn "Do you want to push this entry?"
+ push <- getLine
+
+ if (push == "y")
+ then (callCommand $ "git add . && git commit -m \"" ++ entryName ++ "\" && git push") >> putStrLn "Thank for using xyz"
+ else return ()
+
usage :: IO ()
usage = putStr . ununlines $ [
"usage: xyz <command>",