cli:Fixed NoLine column rendering after previous commit

This commit is contained in:
Eric Mertens 2020-02-29 12:19:45 -08:00 committed by Simon Michael
parent 011a864deb
commit e33aa56d43

View File

@ -85,7 +85,9 @@ renderHLine' vpos pretty prop is h = edge HL ++ sep ++ coreLine ++ sep ++ edge H
helper = either vsep dashes
dashes (i,_) = concat (replicate i sep)
sep = boxchar vpos HM NoLine prop pretty
vsep v = sep ++ cross v prop ++ sep
vsep v = case v of
NoLine -> sep ++ sep
_ -> sep ++ cross v prop ++ sep
cross v h = boxchar vpos HM v h pretty
data VPos = VT | VM | VB -- top middle bottom