Commit aaa72728 authored by Nicolas Lenz's avatar Nicolas Lenz
Browse files

Start adding main function

parent 5af51aaa
......@@ -24,3 +24,15 @@ putMockAlternate = putStrLn . mockAlternate
putMockRandom :: String -> IO ()
putMockRandom str = mockRandom str >>= putStrLn
main :: IO ()
main = do
args <- getArgs
case length args of
0 -> putStrLn ""
help :: String
help = "Mock - a program to transform text.\n\
\Usage: mock [STYLE] [TEXT]\n\
\Styles:"
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment