[flexiblize browsedir
thomashartman1@gmail.com**20081004141813] hunk ./src/Controller.hs 146
+
hunk ./src/HAppSBrowse.hs 26
-             --let fs1 = map g fs
-             --      where g f = diralias ++ (drop (length d) f) 
-             let flinks = map g . filter (not . boringfile ) . sort $ fs
-                   where g f = simpleLink ('/' : (combine aliaspath f)) f
-             return . toResponse . HtmlString $ "<h3>" ++ realpath ++ "</h3>\n<ul>" ++ concatMap li flinks ++ "</ul"
+             showdir <- paintdir aliaspath fs
+             return . toResponse $ showdir
hunk ./src/HAppSBrowse.hs 32
-             -- serve as plain text file
+             showf <- paintfile f
hunk ./src/HAppSBrowse.hs 35
-  where simpleLink url anchor = "<a href=" ++ url ++ ">" ++ anchor ++ "</a>"
+  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>"
+
+        simpleLink url anchor = "<a href=" ++ url ++ ">" ++ anchor ++ "</a>"
hunk ./src/HAppSBrowse.hs 52
+
+