Permalink
Browse files

Removed decString - happstack now decodes the rqPaths.

  • Loading branch information...
1 parent 75f0338 commit a61a83d556c9e2e8b73b7b5e77833996dabb0ab4 John MacFarlane committed Apr 20, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 Network/Gitit/Framework.hs
@@ -179,7 +179,7 @@ unlessNoDelete responder fallback = withData $ \(params :: Params) -> do
-- | Returns the current path (subtracting initial commands like @\/_edit@).
getPath :: ServerMonad m => m String
-getPath = liftM (fromJust . decString True . intercalate "/" . rqPaths) askRq
+getPath = liftM (intercalate "/" . rqPaths) askRq
-- | Returns the current page name (derived from the path).
getPage :: GititServerPart String

0 comments on commit a61a83d

Please sign in to comment.