blob: 999703c5ac05eaf7933eb679ff69a218646ca7e6 (
plain)
1
2
3
4
5
6
7
8
9
10
|
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)
|
