From 05d6b5f93cd1ed5e9c4f4f9d63cf392ada048afb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ra=C3=BAl=20Benencia?= <rul@kalgan.cc>
Date: Mon, 26 Aug 2013 13:44:44 -0300
Subject: towards lazy reading (broken)

---
 Types.hs | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 Types.hs

(limited to 'Types.hs')

diff --git a/Types.hs b/Types.hs
new file mode 100644
index 0000000..4fe658e
--- /dev/null
+++ b/Types.hs
@@ -0,0 +1,22 @@
+{- Common types of Lazymail
+ -
+ - Copyright 2013 Raúl Benencia <rul@kalgan.cc>
+ -
+ - Licensed under the GNU GPL version 3 or higher
+ -}
+
+module Types
+       (
+         LazymailUpdate
+       , LazymailCurses
+       ) where
+
+import Control.Monad.Reader(ReaderT)
+import Control.Monad.State(StateT)
+import UI.NCurses(Curses, Update)
+
+import Config (LazymailConfig)
+import State (LazymailState)
+
+type LazymailUpdate = ReaderT LazymailConfig (StateT LazymailState Update)
+type LazymailCurses = ReaderT LazymailConfig (StateT LazymailState Curses)
-- 
cgit v1.2.3