git.iko.soy/elk
on master help sign in
Make the background black, like the terminal, for higher contrast
fdba7a2Evan Czaplicki
ui/browser/src/Errors.elm+2−33
compare with master
unifiedsplit
@@ -49,14 +49,14 @@ viewError error =
49 , style "display" "flex"
49 , style "display" "flex"
50 , style "flex-direction" "column"
50 , style "flex-direction" "column"
51 , style "align-items" "center"
51 , style "align-items" "center"
52− , style "background-color" "black"
52+ , style "background-color" "rgb(39, 40, 34)"
53 , style "color" "rgb(233, 235, 235)"
53 , style "color" "rgb(233, 235, 235)"
54 , style "font-family" "monospace"
54 , style "font-family" "monospace"
55 ]
55 ]
56 [ div
56 [ div
57 [ style "display" "block"
57 [ style "display" "block"
58 , style "white-space" "pre-wrap"
58 , style "white-space" "pre-wrap"
59− , style "background-color" "rgb(39, 40, 34)"
59+ , style "background-color" "black"
60 , style "padding" "2em"
60 , style "padding" "2em"
61 ]
61 ]
62 (viewErrorHelp error)
62 (viewErrorHelp error)
@@ -93,37 +93,6 @@ viewProblem filePath problem =
93 )
93 )
94
94
95
95
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−
127
96
128-- VIEW MESSAGE
97-- VIEW MESSAGE
129
98