diff options
| -rw-r--r-- | cli/Main.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/cli/Main.hs b/cli/Main.hs index 9e5641b..643fd5f 100644 --- a/cli/Main.hs +++ b/cli/Main.hs @@ -53,9 +53,9 @@ die msg = do exitFailure getContent :: Bool -> String -> IO BS.ByteString -getContent fromFile text - | fromFile && (text == "-") = BS.getContents - | fromFile = BS.readFile text +getContent isFile text + | isFile && (text == "-") = BS.getContents + | isFile = BS.readFile text | otherwise = return $ C.pack text main :: IO () |