@@ -143,10 +143,9 @@ addDecl moduleName env decl =
143 _ -> _values env
143 _ -> _values env
146− throw err = Left [ P.vcat [ P.text $ "Error in type alias '" ++ name ++ "':"
147+ let msg = "Error in type alias '" ++ name ++ "':"
147− , P.text err
148+ in Left [ P.vcat [ P.text msg, P.text err ] ]
151 D.Port _ -> return env
150 D.Port _ -> return env