showError :: Config -> String -> Config
showError cfg msg = cfg { errorMsg = Just msg }
showError :: Config -> String -> Config
showError cfg msg = cfg { errorMsg = Just msg }
showError cfg msg = cfg { errorMsg = Just msg }