muesli4

{-# LANGUAGE DeriveFunctor #-}
module Browser.SeqTree where

import qualified Data.Sequence as S

data SeqTree a
    = SeqTree
    { stLabel :: a
    , stForrest :: SeqForrest a
    } deriving (Read, Show, Functor)

muesli4

class Cell a where
    -- | Drop a number of characters from the left side. Treats negative numbers
    -- as zero.
    dropLeft :: Int -> a -> a

    -- | Drop a number of characters from the right side. Treats negative
    -- numbers as zero.
    dropRight :: Int -> a -> a

    -- | Drop characters from both sides. Treats negative numbers as zero.