From 5540655e4d68def52cc67e89ed50e7700d9df01b Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Sun, 27 Jul 2014 19:06:06 +0200
Subject: move showBuffer from Main to Buffer.Class

---
 Buffer/Class.hs | 4 ++++
 Main.hs         | 6 ------
 2 files changed, 4 insertions(+), 6 deletions(-)

diff --git a/Buffer/Class.hs b/Buffer/Class.hs
index b2770b1..8f8bb75 100644
--- a/Buffer/Class.hs
+++ b/Buffer/Class.hs
@@ -4,3 +4,7 @@ module Buffer.Class where
 type Buffer = (String, String)
 
 emptyBuffer = ("", "")
+
+-- TODO instance Show Buffer (w/newtype Buffer) (?)
+showBuffer :: Buffer -> String
+showBuffer (lhs, rhs) = lhs ++ rhs
diff --git a/Main.hs b/Main.hs
index 75e031f..b244de1 100644
--- a/Main.hs
+++ b/Main.hs
@@ -152,12 +152,6 @@ modifyBuffer f =
     modify $ \st -> st { buffer = f (buffer st) }
 
 
--- TODO instance Show Buffer (w/newtype Buffer)
-
-showBuffer :: Buffer -> String
-showBuffer (lhs, rhs) = lhs ++ rhs
-
-
 
 newtype ExecM a = ExecM
     ( ErrorT ExecError (WriterT [String] (StateT VTState IO)) a
-- 
cgit v1.2.3