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