[Fencommits] fenserve: fix

[Tuukka Hastrup]

Sat May 26 19:49:56 EEST 2007  Tuukka Hastrup <Tuukka.Hastrup at iki.fi>
  * fix
diff -rN -u old-fenserve-1/fendata/Potions.hs new-fenserve-1/fendata/Potions.hs
--- old-fenserve-1/fendata/Potions.hs	2007-05-26 19:50:00.000000000 +0300
+++ new-fenserve-1/fendata/Potions.hs	2007-05-26 19:50:00.000000000 +0300
@@ -94,7 +94,7 @@
 renderExp Today cx ty = editLink cx Today ty "today's date"
 renderExp e0@(SortByField cat field i exp) cx ty = renderMaybeExp' exp (\e -> cx $ SortByField cat field i $ Just e) (pluralType cat) +++ editLink cx e0 ty (", sorted by "++field++if i<0 then ", descending" else ", ascending")
 renderExp e0@(FilterByField cat field i exp exp0) cx ty = editLink cx e0 ty "those of " +++ renderMaybeExp' exp (\e -> cx $ FilterByField cat field i (Just e) exp0) (pluralType cat) +++ editLink cx e0 ty (" whose "++field++if i<0 then " comes before " else if i>0 then " comes after " else " is ") +++ renderExp exp0 (\e -> cx $ FilterByField cat field i exp e) string
-renderExp e0@(Forall cat i exp body) cx _ = editLink cx e0 string "For each "+++cat+++" '"+++renderVar i+++"' of " +++ renderMaybeExp' exp (\e -> cx $ Forall cat i (Just e) body) (pluralType cat)
+renderExp e0@(Forall cat i exp body) cx _ = editLink cx e0 string ("For each "+++cat+++" '"+++renderVar i+++"' of ") +++ renderMaybeExp' exp (\e -> cx $ Forall cat i (Just e) body) (pluralType cat)
                             +++ editLink cx e0 string (":\n")
                             +++ tag' "blockquote" (renderExp body (\e -> cx $ Forall cat i exp e) string)
 renderExp (Str s) cx _ = tag "small" [] $ quoteP s