[Fencommits] fenserve: add HTML to the list of potions

[Tuukka Hastrup]

Mon May 21 00:42:01 EEST 2007  Tuukka Hastrup <Tuukka.Hastrup at iki.fi>
  * add HTML to the list of potions
diff -rN -u old-fenserve/fendata/Main.hs new-fenserve/fendata/Main.hs
--- old-fenserve/fendata/Main.hs	2007-05-21 00:43:49.000000000 +0300
+++ new-fenserve/fendata/Main.hs	2007-05-21 00:43:49.000000000 +0300
@@ -62,6 +62,7 @@
 
 getPotions :: MyState -> [Exp]
 getPotions s = map f (Map.toList $ statePotions s)
+            ++ [HTML []]
             ++ concatFor (Map.toList $ stateSchema s) (\(cat,fs) ->
                    Call (show $ CatFun cat) []
                  : map (\f -> Call (show $ FieldFun cat f) [Nothing]) fs) where