checkLength :: [a] -> Maybe CheckError
checkLength str | length str < 80 = Nothing
                | otherwise = Just LineTooLong
checkLength :: [a] -> Maybe CheckError
checkLength str | length str < 80 = Nothing
                | otherwise = Just LineTooLong
checkLength str | length str < 80 = Nothing
                | otherwise = Just LineTooLong