blob: 36447170aa5e3e8b7d3d356c1be730a715e42ddc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
-- TODO Class is a lie
module Hack.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
|
