hindent-4.5.2: test/johan-tibell/expected/2.exp

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