renderCheckError :: (Show a) => a -> CheckError -> IO ()
renderCheckError lineNo LineTooLong =
    putIndentLn $ show lineNo ++": Line too long"
renderCheckError :: (Show a) => a -> CheckError -> IO ()
renderCheckError lineNo LineTooLong =
    putIndentLn $ show lineNo ++": Line too long"
renderCheckError lineNo LineTooLong =
    putIndentLn $ show lineNo ++": Line too long"