module Hack.Buffer.Extra where

import Hack.Buffer (Buffer)


length :: Buffer -> Int
length (ls, rs) = Prelude.length ls + Prelude.length rs

insertChar :: Char -> Buffer -> Buffer
insertChar c (ls, rs) = (ls <> [c], rs)