Use box drawing character for indentation

This commit is contained in:
Joscha 2020-02-08 23:38:29 +00:00
parent 8fb3ab19c8
commit fcd722a836

View file

@ -26,7 +26,7 @@ narrowDrawState nodeId ds = ds
} }
indent :: Widget n -> Widget n indent :: Widget n -> Widget n
indent = (txt "| " <+>) indent = (txt " " <+>)
drawSubnode :: NodeId -> DrawState -> Node -> Widget ResourceName drawSubnode :: NodeId -> DrawState -> Node -> Widget ResourceName
drawSubnode nodeId ds node = drawSubnode nodeId ds node =