git.iko.soy/elk
on master help sign in
Switch the top bar to dull cyan, like in the real errors
4290da5Evan Czaplicki
ui/browser/src/Errors.elm+32−1
compare with master
unifiedsplit
@@ -88,11 +88,42 @@ viewProblem filePath problem =
88 "-- " ++ problem.title ++ " " ++ String.padLeft leftover '-' (" " ++ filePath) ++ "\n\n"
88 "-- " ++ problem.title ++ " " ++ String.padLeft leftover '-' (" " ++ filePath) ++ "\n\n"
89 in
89 in
90 span []
90 span []
91− ( span [ style "color" "cyan" ] [ text header ]
91+ ( span [ style "color" "rgb(51,187,200)" ] [ text header ]
92 :: viewMessage problem.message
92 :: viewMessage problem.message
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+
96
127
97-- VIEW MESSAGE
128-- VIEW MESSAGE
98
129