aboutsummaryrefslogtreecommitdiff
path: root/cli
diff options
context:
space:
mode:
authorIgor Pashev <pashev.igor@gmail.com>2016-04-10 02:43:38 +0800
committerIgor Pashev <pashev.igor@gmail.com>2016-04-10 02:44:18 +0800
commit3c3da3eca80e2343fa196c864d06653784169c03 (patch)
treee7d65218edfc1af534b3acc1e8d8ba1226adaa31 /cli
parentfa2bc49340a51d78fe2db935284ab503daf8e3f1 (diff)
downloadzerobin-3c3da3eca80e2343fa196c864d06653784169c03.tar.gz
isFile looks better than fromFile
Diffstat (limited to 'cli')
-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 ()