[Fencommits] fenserve: add Types.hs

[Benja Fallenstein]

Wed May  9 21:32:36 EEST 2007  Benja Fallenstein <benja.fallenstein at gmail.com>
  * add Types.hs
diff -rN -u old-fenserve/notetaker/Types.hs new-fenserve/notetaker/Types.hs
--- old-fenserve/notetaker/Types.hs	1970-01-01 02:00:00.000000000 +0200
+++ new-fenserve/notetaker/Types.hs	2007-05-09 21:32:43.000000000 +0300
@@ -0,0 +1,20 @@
+{-# OPTIONS_GHC -fglasgow-exts #-}
+module Types where
+
+import HAppS (EpochTime)
+import Data.Binary
+import Data.Generics
+import System.Time
+
+type Path = [Int]
+data Body = Body String | Add Path String 
+          | Edit Path String | Move Path Path | DeleteOne Path | Delete Path
+          | MakeOwnPage Path | Unpage Path | Revert Int
+                                      deriving (Eq,Ord,Read,Show,Typeable)
+data Line = Line { lineTime :: EpochTime, lineNick :: String, 
+                   lineBody :: Body } deriving (Eq,Ord,Read,Show,Typeable)
+                   
+instance Binary Line where
+
+data Note = Note String Bool [Line] [Note] deriving (Eq,Ord,Read,Show)
+