From 3c3da3eca80e2343fa196c864d06653784169c03 Mon Sep 17 00:00:00 2001
From: Igor Pashev <pashev.igor@gmail.com>
Date: Sun, 10 Apr 2016 02:43:38 +0800
Subject: isFile looks better than fromFile

---
 cli/Main.hs | 6 +++---
 1 file 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 ()
-- 
cgit v1.2.3