From 835c2dffc539e277812925469c82662482e1bbc5 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Mon, 13 Feb 2017 06:31:09 +1100 Subject: Removed all Haskell and other old code, updated readme/notes --- src/File.hs | 42 ------------------------------------------ 1 file changed, 42 deletions(-) delete mode 100644 src/File.hs (limited to 'src/File.hs') 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) - - -- cgit