From f18d1afe54a73b030e892a1834bcc4f947c4c2ef Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Tue, 23 Feb 2021 20:52:42 +0100
Subject: Buffer -> Hack.Buffer
---
src/Hack/Buffer/Class.hs | 13 +++++++++++++
1 file changed, 13 insertions(+)
create mode 100644 src/Hack/Buffer/Class.hs
(limited to 'src/Hack/Buffer/Class.hs')
diff --git a/src/Hack/Buffer/Class.hs b/src/Hack/Buffer/Class.hs
new file mode 100644
index 0000000..3644717
--- /dev/null
+++ b/src/Hack/Buffer/Class.hs
@@ -0,0 +1,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
--
cgit v1.2.3