Permalink
Browse files

fixed dup dropExtension on categoryPage

  • Loading branch information...
1 parent c6048bb commit 7bb36eca44645b0a1d13ee73573c4b79d27ccae7 @ayamada committed Aug 24, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 Network/Gitit/Handlers.hs
@@ -704,7 +704,7 @@ categoryPage = do
forM pages $ \f -> do
categories <- liftIO $ readCategories $ repoPath </> f
return $ if category `elem` categories
- then Just $ dropExtension f
+ then Just f
else Nothing
base' <- getWikiBase
let toMatchListItem file = li <<

0 comments on commit 7bb36ec

Please sign in to comment.