blob: 8f8bb757c7359f97c3c402493e6c2a587b3693d0 (
plain)
1
2
3
4
5
6
7
8
9
10
|
-- TODO Class is a lie
module Buffer.Class where
type Buffer = (String, String)
emptyBuffer = ("", "")
-- TODO instance Show Buffer (w/newtype Buffer) (?)
showBuffer :: Buffer -> String
showBuffer (lhs, rhs) = lhs ++ rhs
|
