cli:Fixed NoLine column rendering after previous commit
This commit is contained in:
parent
011a864deb
commit
e33aa56d43
@ -85,7 +85,9 @@ renderHLine' vpos pretty prop is h = edge HL ++ sep ++ coreLine ++ sep ++ edge H
|
|||||||
helper = either vsep dashes
|
helper = either vsep dashes
|
||||||
dashes (i,_) = concat (replicate i sep)
|
dashes (i,_) = concat (replicate i sep)
|
||||||
sep = boxchar vpos HM NoLine prop pretty
|
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
|
cross v h = boxchar vpos HM v h pretty
|
||||||
|
|
||||||
data VPos = VT | VM | VB -- top middle bottom
|
data VPos = VT | VM | VB -- top middle bottom
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user