@@ -114,18 +114,23 @@ drawCycle :: [String] -> Doc
114drawCycle strings =
114drawCycle strings =
116 topLine =
116 topLine =
117− text "┌─────┐"
117+ [ text "┌─────┐"
119 line str =
121 line str =
120− text "│ " <> dullyellow (text str)
122+ [ text "│ " <> dullyellow (text str)
122 midLine =
125 midLine =
123− text "│ ↓"
127+ , text "│ V"
125 bottomLine =
130 bottomLine =
126 text "└─────┘"
131 text "└─────┘"
128− vcat (topLine : List.intersperse midLine (map line strings) ++ [ bottomLine ])
133+ vcat (topLine ++ List.intercalate midLine (map line strings) ++ [ bottomLine ])