hindent-4.3.10: test/johan-tibell/tests/2.test

strToMonth :: String -> Int
strToMonth month = case month of
    "Jan" -> 1
    "Feb" -> 2
    _ -> error $ "Unknown month " ++ month