[Fencommits] fenserve: move stuff around inside Types.hs

[Benja Fallenstein]

Thu Jun 21 14:33:20 EEST 2007  Benja Fallenstein <benja.fallenstein at gmail.com>
  * move stuff around inside Types.hs
diff -rN -u old-fenserve/fendata/Types.hs new-fenserve/fendata/Types.hs
--- old-fenserve/fendata/Types.hs	2007-06-21 14:33:36.000000000 +0300
+++ new-fenserve/fendata/Types.hs	2007-06-21 14:33:36.000000000 +0300
@@ -136,10 +136,14 @@
 data Typeable a => Template a = TCons HTML a (Template a) | TNil HTML
     deriving (Read, Show, Typeable, Data, Eq, Ord)
 
+data SExp = SExp String [SExp]
+
+class FromSExps a where fromSExps :: (?imp :: Imp) => [SExp] -> a
+class ToSExps a where toSExps :: (?imp :: Imp) => a -> [SExp]
 
 
 ----------------------------------------------------------------------------
--- Potions
+-- Rendering of expressions
 ----------------------------------------------------------------------------
 
 data Env = Env { envVars :: [(String,Type)], envPath :: [Int], envWhole :: Exp }
@@ -153,10 +157,9 @@
     ren :: (?imp :: Imp) => a -> RenderExp [(Bool, HTML)]
 
 
-data SExp = SExp String [SExp]
-
-class FromSExps a where fromSExps :: (?imp :: Imp) => [SExp] -> a
-class ToSExps a where toSExps :: (?imp :: Imp) => a -> [SExp]
+----------------------------------------------------------------------------
+-- Potions
+----------------------------------------------------------------------------
 
 data Potion = forall a r. (Data a, FromSExps a, ToSExps a, Ren r) => 
               Potion String (a -> (r, [Values] -> Values))