aboutsummaryrefslogblamecommitdiffstats
path: root/tests/loc.hs
blob: 7911b9a9f1a2573c7ad60e21b3e82aa0dd2e8b33 (plain) (tree)
1
2
3
4
5
6
7
8
9
10









                                                                         
                                                           



                               
import Control.Monad
import System.Exit

main = do foo <- getContents
          let actual_loc = filter isntcomment $
                           map (dropWhile (==' ')) $ lines foo
              loc = length actual_loc
          putStrLn $ show loc
          -- uncomment the following to check for mistakes in isntcomment
          -- putStr $ unlines $ actual_loc
          when (loc > 500) $ fail "Too many lines of code!"

isntcomment "" = False
isntcomment ('-':'-':_) = False
isntcomment _ = True