[more of same
thomashartman1@gmail.com**20081004142431] hunk ./src/HAppSBrowse.hs 1
+{-# LANGUAGE NoMonomorphismRestriction #-}
+
hunk ./src/HAppSBrowse.hs 15
-browsedir :: String -> String -> ServerPartT IO Response
-browsedir diralias d = multi [
+
+
+browsedir = browsedir' defPaintdir defPaintfile 
+-- browsedir' :: String -> String -> ServerPartT IO Response
+
+
+browsedir' paintdir paintfile diralias d = multi [
hunk ./src/HAppSBrowse.hs 42
-  where -- paintdir/paintfile are monadic for optional IO
-        paintfile f = return f -- 
-        paintdir aliaspath fs =
-            let flinks = map g . filter (not . boringfile ) . sort $ fs
-                g f = simpleLink ('/' : (combine aliaspath f)) f
-            in return $ HtmlString $ "<h3>" ++ aliaspath ++ "</h3>\n<ul>" ++ concatMap li flinks ++ "</ul>"
+  
hunk ./src/HAppSBrowse.hs 44
-        simpleLink url anchor = "<a href=" ++ url ++ ">" ++ anchor ++ "</a>"
+-- paintdir/paintfile are monadic for optional IO
+defPaintfile f = return f -- 
+defPaintdir aliaspath fs =
+    let flinks = map g . filter (not . boringfile ) . sort $ fs
+        g f = simpleLink ('/' : (combine aliaspath f)) f
+    in return $ HtmlString $ "<h3>" ++ aliaspath ++ "</h3>\n<ul>" ++ concatMap li flinks ++ "</ul>"
+  where simpleLink url anchor = "<a href=" ++ url ++ ">" ++ anchor ++ "</a>"
hunk ./src/HAppSBrowse.hs 59
-
-
-