From 5540655e4d68def52cc67e89ed50e7700d9df01b Mon Sep 17 00:00:00 2001 From: tv Date: Sun, 27 Jul 2014 19:06:06 +0200 Subject: move showBuffer from Main to Buffer.Class --- Buffer/Class.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'Buffer') 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 -- cgit v1.2.3