[Fencommits] fenserve: fix link
Benja Fallenstein
benja.fallenstein at gmail.com
Fri May 25 18:27:15 EEST 2007
Fri May 25 18:27:07 EEST 2007 Benja Fallenstein <benja.fallenstein at gmail.com>
* fix link
diff -rN -u old-fenserve/fendata/Potions.hs new-fenserve/fendata/Potions.hs
--- old-fenserve/fendata/Potions.hs 2007-05-25 18:27:15.000000000 +0300
+++ new-fenserve/fendata/Potions.hs 2007-05-25 18:27:15.000000000 +0300
@@ -66,8 +66,7 @@
f [] [x] _ n = editLink cx exp ty x
f (t:ts) (x:xs) (y:ys) n =
editLink cx exp ty x +++ renderMaybeExp' y (cx' n) t +++ f ts xs ys (n+1)
-renderExp e0@(Field cat field exp) cx ty = l "the " +++ field +++ l " of " +++ renderMaybeExp' exp (\e -> Field cat field $ Just e) (catType cat) where
- l s = editLink cx e0 ty s
+renderExp e0@(Field cat field exp) cx ty = editLink cx e0 ty ("the " +++ field +++ " of ") +++ renderMaybeExp' exp (\e -> Field cat field $ Just e) (catType cat) where
renderExp e0@(AllItems cat) cx ty = editLink cx e0 ty ("all the "++cat++"s in the system")
renderExp exp@(Var i) cx ty = editLink cx exp ty (renderVar i)
renderExp e0@(Forall t i exp body) cx _ = editLink cx e0 string "For each of " +++ renderMaybeExp' exp (\e -> cx $ Forall t i (Just e) body) t
More information about the Fencommits
mailing list