@@ -49,14 +49,14 @@ viewError error =
4949 , style "display" "flex"
5050 , style "flex-direction" "column"
5151 , style "align-items" "center"
52− , style "background-color" "black"
52+ , style "background-color" "rgb(39, 40, 34)"
5353 , style "color" "rgb(233, 235, 235)"
5454 , style "font-family" "monospace"
5555 ]
5656 [ div
5757 [ style "display" "block"
5858 , style "white-space" "pre-wrap"
59− , style "background-color" "rgb(39, 40, 34)"
59+ , style "background-color" "black"
6060 , style "padding" "2em"
6161 ]
6262 (viewErrorHelp error)
@@ -93,37 +93,6 @@ viewProblem filePath problem =
9393 )
9494
9595
96−{-
97−toDocHelp :: Exit -> [Exit] -> [D.Doc]
98−toDocHelp e1 exits =
99− case exits of
100− [] ->
101− [exitToDoc e1]
102−
103− e2 : otherErrors ->
104− exitToDoc e1 : separator (_name e1) (_name e2) : toDocHelp e2 otherErrors
105−
106−
107−exitToDoc :: Exit -> D.Doc
108−exitToDoc (Exit _name path _time source errors) =
109− Compiler.errorsToDoc path source errors
110−
111−
112−separator :: Module.Raw -> Module.Raw -> D.Doc
113−separator beforeName afterName =
114− let
115− before = Module.nameToString beforeName ++ " ↑ "
116− after = " ↓ " ++ Module.nameToString afterName
117− in
118− D.dullred $ D.vcat $
119− [ D.indent (80 - length before) (D.fromString before)
120− , "====o======================================================================o===="
121− , D.fromString after
122− , D.empty
123− , D.empty
124− ]
125−-}
126−
12796
12897-- VIEW MESSAGE
12998