[Fencommits] fenserve: refactoring, doesn't quite work

[Benja Fallenstein]

Thu Mar 22 05:29:27 EET 2007  Benja Fallenstein <benja.fallenstein at gmail.com>
  * refactoring, doesn't quite work
diff -rN -u old-fenserve/FenServe.hs new-fenserve/FenServe.hs
--- old-fenserve/FenServe.hs	2007-03-22 19:49:08.000000000 +0200
+++ new-fenserve/FenServe.hs	2007-03-22 19:49:08.000000000 +0200
@@ -222,7 +222,7 @@
       d' <- writeData (bURI $ bID d) (Dir d entries'); return (r,d') where
     f (DirEntry n sub : es) | n == x = do (r,sub') <- handlePath' sub xs req
                                           return (r, DirEntry n sub' : es)
-    f (_              : es) = f es
+    f (e              : es) = do (r,es') <- f es; return (r,e:es')
     f []                    = case rqMethod req of
              PUT -> do (r,sub) <- handlePath' (fst emptyState) xs req
                        return (r, [DirEntry x sub])