Permalink
Browse files

This is really bad coded and can't possibly be usefull for anything g…

…ood.

If this is really used, then people ought to use for example CLOC[1] which
can parse haskell code from the looks of it.

  [1] : http://cloc.sourceforge.net/
  • Loading branch information...
1 parent f15f521 commit 91e7dd0af7e272ec0b7d30a7a3bdbb453baa8c25 @reenberg committed Dec 14, 2011
Showing with 0 additions and 14 deletions.
  1. +0 −14 tests/loc.hs
View
@@ -1,14 +0,0 @@
-import Control.Monad
-import System.Exit
-
-main = do foo <- getContents
- let actual_loc = filter (not.null) $ filter isntcomment $
- map (dropWhile (==' ')) $ lines foo
- loc = length actual_loc
- print loc
- -- uncomment the following to check for mistakes in isntcomment
- -- print actual_loc
-
-isntcomment ('-':'-':_) = False
-isntcomment ('{':'-':_) = False -- pragmas
-isntcomment _ = True

0 comments on commit 91e7dd0

Please sign in to comment.