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