1 2 3 4 5 6 7 8
module TextViewport.Buffer.Item where data Item a seg = Item { itemText :: a , itemSegments :: seg } deriving (Eq, Show)