@@ -50,7 +50,7 @@ addError message t1 t2 =
50 err = makeError <$> extraPretty t1 <*> extraPretty t2
50 err = makeError <$> extraPretty t1 <*> extraPretty t2
51 makeError pt1 pt2 =
51 makeError pt1 pt2 =
52 P.vcat [ P.text $ "Type error on line ???"
52 P.vcat [ P.text $ "Type error on line ???"
53− , if null message then empty else P.fsep . map P.text $ words message
53+ , if null message then empty else P.vcat . map P.text $ lines message
54 , P.text " "
54 , P.text " "
55 , P.text " Expected Type:" <+> pt1
55 , P.text " Expected Type:" <+> pt1
56 , P.text " Actual Type:" <+> pt2 <> P.text "\n"
56 , P.text " Actual Type:" <+> pt2 <> P.text "\n"