putResult :: LineNumber -> [CheckError] -> IO ()
putResult lineNo errs =
    (mapM_ (renderCheckError lineNo)) errs
putResult :: LineNumber -> [CheckError] -> IO ()
putResult lineNo errs =
    (mapM_ (renderCheckError lineNo)) errs
putResult lineNo errs =
    (mapM_ (renderCheckError lineNo)) errs