aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--cli/Main.hs6
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 ()