Commit 517bc032 authored by Nicolas Lenz's avatar Nicolas Lenz
Browse files

Enable reading from stdin when no text is given on cli

parent fe36604f
......@@ -12,7 +12,7 @@ main = do
args <- getArgs
case length args of
0 -> putStrLn help
1 -> putStrLn help -- TODO: read from stdin
1 -> getLine >>= (\text -> handle [head args, text])
_ -> handle args
handle :: [String] -> IO ()
......
Supports Markdown
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