Skip to content
This repository
Browse code

Removed decString - happstack now decodes the rqPaths.

  • Loading branch information...
commit a61a83d556c9e2e8b73b7b5e77833996dabb0ab4 1 parent 75f0338
John MacFarlane authored

Showing 1 changed file with 1 addition and 1 deletion. Show diff stats Hide diff stats

  1. +1 1  Network/Gitit/Framework.hs
2  Network/Gitit/Framework.hs
@@ -179,7 +179,7 @@ unlessNoDelete responder fallback = withData $ \(params :: Params) -> do
179 179
180 180 -- | Returns the current path (subtracting initial commands like @\/_edit@).
181 181 getPath :: ServerMonad m => m String
182   -getPath = liftM (fromJust . decString True . intercalate "/" . rqPaths) askRq
  182 +getPath = liftM (intercalate "/" . rqPaths) askRq
183 183
184 184 -- | Returns the current page name (derived from the path).
185 185 getPage :: GititServerPart String

0 comments on commit a61a83d

Please sign in to comment.
Something went wrong with that request. Please try again.