changes

• DarcsDen/Handler.hs :: line 37

  handler = withSession (\s -> route (routes s))
  

  handler =
      route
          [ ("public", fileServe "public")
          , (":owner/:repo/_darcs", repoServe "_darcs")
          , (":owner/:repo/raw", repoServe "")
          ] <|>
      withSession (\s -> route (routes s))
  

• DarcsDen/Handler.hs :: line 49

      , ("public", fileServe "public")
  

• DarcsDen/Handler.hs :: line 64

          , (":owner/:repo/_darcs", \_ r _ -> fileServe (repoDir (rOwner r) (rName r) ++ "/_darcs"))
  

• DarcsDen/Handler.hs :: line 75

          , (":owner/:repo/raw", \_ r _ -> fileServe (repoDir (rOwner r) (rName r)))
  

• DarcsDen/WebUtils.hs :: line 10

  import Snap.Util.FileServe
  import System.FilePath
  

• DarcsDen/WebUtils.hs :: line 17

  import DarcsDen.State.Util (repoDir)
  

• DarcsDen/WebUtils.hs :: line 81

  repoServe :: String -> Snap ()
  repoServe b = do
      mo <- getParam "owner"
      mr <- getParam "repo"
      case (mo, mr) of
          (Just owner, Just repo) ->
              fileServe (repoDir (fromBS owner) (fromBS repo) </> b)
          _ ->
              notFound