Make error messages nicer
commitfa448548b881e9213f162d979b8f5d8b2a65a95e
authorEvan Czaplicki <info@elm-lang.org>
dateTue 30 Jul 2013, 08:31 (13 years ago)
parenta1b7336
compiler/Type/State.hs+1−1
@@ -50,7 +50,7 @@ addError message t1 t2 =
5050 err = makeError <$> extraPretty t1 <*> extraPretty t2
5151 makeError pt1 pt2 =
5252 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
5454 , P.text " "
5555 , P.text " Expected Type:" <+> pt1
5656 , P.text " Actual Type:" <+> pt2 <> P.text "\n"