Permalink
Browse files

Fixed bug in categories caching.

  • Loading branch information...
1 parent 6e20c24 commit 12953bcb95b465c4abfbb896b871c1b54b22e9ee John MacFarlane committed Jul 14, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 Network/Gitit2.hs
View
@@ -1414,8 +1414,8 @@ expireCategories = do
cachedir <- cache_dir <$> getConfig
let fullpath = cachedir </> "_categories"
liftIO $ do
- exists <- doesDirectoryExist cachedir
- when exists $ removeDirectoryRecursive cachedir
+ exists <- doesDirectoryExist fullpath
+ when exists $ removeDirectoryRecursive fullpath
-- | Expire the cached feed unless it is younger than 'minutes' old.
expireFeed :: Integer -> FilePath -> GHandler Gitit master ()

0 comments on commit 12953bc

Please sign in to comment.