Merge pull request #1180 from elm-lang/dev
Stop using ↓ because of dumb British windows
commit7a2b6bcb74836bdfb6894e5c1b43e6eb4d134196
authorEvan Czaplicki <info@elm-lang.org>
dateTue 17 Nov 2015, 20:05 (11 years ago)
parent4edbaff1a228b1
src/Reporting/Error/Helpers.hs+9−4
@@ -114,18 +114,23 @@ drawCycle :: [String] -> Doc
114114drawCycle strings =
115115 let
116116 topLine =
117− text "┌─────┐"
117+ [ text "┌─────┐"
118+ , text "│ V"
119+ ]
118120
119121 line str =
120− text "│ " <> dullyellow (text str)
122+ [ text "│ " <> dullyellow (text str)
123+ ]
121124
122125 midLine =
123− text "│ ↓"
126+ [ text "│ │"
127+ , text "│ V"
128+ ]
124129
125130 bottomLine =
126131 text "└─────┘"
127132 in
128− vcat (topLine : List.intersperse midLine (map line strings) ++ [ bottomLine ])
133+ vcat (topLine ++ List.intercalate midLine (map line strings) ++ [ bottomLine ])
129134
130135
131136