Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
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...
commit 91e7dd0af7e272ec0b7d30a7a3bdbb453baa8c25 1 parent f15f521
Jesper Reenberg authored
Showing with 0 additions and 14 deletions.
  1. +0 −14 tests/loc.hs
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
Please sign in to comment.
Something went wrong with that request. Please try again.