Enable reading from stdin when no text is given on cli

app/Main.hs

@@ -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 ()