Permalink
Browse files

Fixed bug in searchResults for pages in subdirectories.

Resolves Issue #52.  Replaced takeBaseName with
dropExtension, so directories are preserved.
  • Loading branch information...
1 parent 523f92b commit 5e2ad7ea6fd6a31d605ce0656a3cb597215025bb @jgm committed Jun 10, 2009
Showing with 1 addition and 1 deletion.
  1. +1 −1 Gitit/Handlers.hs
View
@@ -272,7 +272,7 @@ searchResults _ params = do
else h3 << [(show $ length matches),
" matches found for '", unwords patterns, "':"]
let toMatchListItem (file, contents) = li <<
- [ anchor ! [href $ urlForPage $ takeBaseName file] << takeBaseName file
+ [ anchor ! [href $ urlForPage $ dropExtension file] << dropExtension file
, stringToHtml (" (" ++ show (length contents) ++ " matching lines)")
, stringToHtml " "
, anchor ! [href "#", theclass "showmatch",

0 comments on commit 5e2ad7e

Please sign in to comment.