Fix versions & metadata loading issue
Closes #171
commit64569d7b724add2c30ee233a1b73703d0e25a8f0
authorJasper Van der Jeugt <m@jaspervdj.be>
dateWed 14 Aug 2013, 00:18 (13 years ago)
parentfaa9028
src/Hakyll/Core/Provider/Internal.hs+1−1
@@ -98,7 +98,7 @@ data Provider = Provider
9898 providerOldFiles :: Map Identifier ResourceInfo
9999 , -- | Underlying persistent store for caching
100100 providerStore :: Store
101− }
101+ } deriving (Show)
102102
103103
104104--------------------------------------------------------------------------------
src/Hakyll/Core/Provider/Metadata.hs+3−2
@@ -44,8 +44,9 @@ loadMetadata p identifier = do
4444
4545 return (M.union md emd, body)
4646 where
47− fp = resourceFilePath p identifier
48− mi = M.lookup identifier (providerFiles p) >>= resourceInfoMetadata
47+ normal = setVersion Nothing identifier
48+ fp = resourceFilePath p identifier
49+ mi = M.lookup normal (providerFiles p) >>= resourceInfoMetadata
4950
5051
5152--------------------------------------------------------------------------------
src/Hakyll/Core/Store.hs+5
@@ -49,6 +49,11 @@ data Store = Store
4949 }
5050
5151
52+--------------------------------------------------------------------------------
53+instance Show Store where
54+ show _ = "<Store>"
55+
56+
5257--------------------------------------------------------------------------------
5358-- | Result of a store query
5459data Result a