1 files changed, 0 insertions, 42 deletions
diff --git a/src/File.hs b/src/File.hs
deleted file mode 100644
index 5e4dce8..0000000
--- a/src/File.hs
+++ /dev/null
@@ -1,42 +0,0 @@
-module File(
-    countLines
-    ) where
-
-
-
-
---  This source is licensed under Creative Commons CC0 v1.0.
-
---  To read the full text, see license.txt in the main directory of this repository
---  or go to https://creativecommons.org/publicdomain/zero/1.0/legalcode.txt
-
---  For a human readable summary, go to https://creativecommons.org/publicdomain/zero/1.0/
-
-
-
-
-import qualified System.IO as IO
-
-
-
-
-countLines :: FilePath -> IO Int
-countLines f = do
-    h <- IO.openFile f IO.ReadMode
-    e <- IO.hIsEOF h
-    if e
-        then IO.hClose h >> return 0
-        else countLinesTail h 0
-
-
-
-
-countLinesTail :: IO.Handle -> Int -> IO Int
-countLinesTail h n = do
-    t <- IO.hGetLine h
-    e <- IO.hIsEOF h
-    if e
-        then IO.hClose h >> return (n + 1)
-        else countLinesTail h (n + 1)
-
-