
data Buffer = Buffer {
    context :: (Integer, Integer),
    config :: Configuration,
    contents :: String,
    cursorPos :: Integer
} deriving Show


moveCursor' :: Buffer -> Integer -> Update ()