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