diff options
| author | Igor Pashev <pashev.igor@gmail.com> | 2016-04-10 02:43:38 +0800 |
|---|---|---|
| committer | Igor Pashev <pashev.igor@gmail.com> | 2016-04-10 02:44:18 +0800 |
| commit | 3c3da3eca80e2343fa196c864d06653784169c03 (patch) | |
| tree | e7d65218edfc1af534b3acc1e8d8ba1226adaa31 | |
| parent | fa2bc49340a51d78fe2db935284ab503daf8e3f1 (diff) | |
| download | zerobin-3c3da3eca80e2343fa196c864d06653784169c03.tar.gz | |
isFile looks better than fromFile
| -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 () |