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

---
 Main.hs | 6 ------
 1 file changed, 6 deletions(-)

(limited to 'Main.hs')

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