@@ -51,7 +51,7 @@ addToMap store path value =
52makePath :: Store -> String -> Identifier -> FilePath
52makePath :: Store -> String -> Identifier -> FilePath
53makePath store name identifier =
53makePath store name identifier =
54− storeDirectory store </> name </> toFilePath identifier
54+ storeDirectory store </> name </> toFilePath identifier </> ".hakyllstore"
56-- | Store an item
56-- | Store an item