Revert "Removed decString - happstack now decodes the rqPaths."

This reverts commit a61a83d.
jgm · Apr 20, 2012 · 10521a8 · 10521a8
1 parent e7c0d75
commit 10521a8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Network/Gitit/Framework.hs b/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 (intercalate "/" . rqPaths) askRq
+getPath = liftM (fromJust . decString True . intercalate "/" . rqPaths) askRq
 
 -- | Returns the current page name (derived from the path).
 getPage :: GititServerPart String