[Fencommits] fenserve: remove link decorations from potions editor

[Benja Fallenstein]

Wed May 23 22:36:54 EEST 2007  Benja Fallenstein <benja.fallenstein at gmail.com>
  * remove link decorations from potions editor
diff -rN -u old-fenserve/fendata/Main.hs new-fenserve/fendata/Main.hs
--- old-fenserve/fendata/Main.hs	2007-05-23 22:37:03.000000000 +0300
+++ new-fenserve/fendata/Main.hs	2007-05-23 22:37:03.000000000 +0300
@@ -337,7 +337,8 @@
                                  | i <- [0..25]]) 
  +++ (catFor (filter ((==ty) . expType) $ getPotions s) $ \repl ->
          para $ li $ linkExp repl $ renderExp' repl id (error "some type"))
-    , s) where linkExp new = link $ "potion?exp=" ++ show (subst (-1) new exp)
+    , s) where linkExp new = tag "a" [("class", "editLink"),
+                   ("href", "potion?exp=" ++ show (subst (-1) new exp))]
 
 makeFun :: Request -> MyState -> (HTML, MyState)
 makeFun msg s = let ?state = s; ?link = False in