move showBuffer from Main to Buffer.Class

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