diff options
| author | tv <tv@shackspace.de> | 2014-07-28 14:18:39 +0200 |
|---|---|---|
| committer | tv <tv@shackspace.de> | 2014-07-28 14:18:39 +0200 |
| commit | e3c8479127589b05719567f6821383ad0d9f5b27 (patch) | |
| tree | 7cc95adc3953ad880a5e676057043d19b1835435 /src/Buffer/Class.hs | |
| parent | 25b8aa03070758e7f72f37e325f3e6e4b22e685c (diff) | |
move source to src/
Diffstat (limited to 'src/Buffer/Class.hs')
| -rw-r--r-- | src/Buffer/Class.hs | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/src/Buffer/Class.hs b/src/Buffer/Class.hs new file mode 100644 index 0000000..75664a5 --- /dev/null +++ b/src/Buffer/Class.hs @@ -0,0 +1,13 @@ +-- TODO Class is a lie +module 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 |