This commit is contained in:
Michael Snoyman 2011-05-13 09:13:20 +03:00
parent 0b6da81f40
commit 1150c7e9b8
2 changed files with 5 additions and 5 deletions

View File

@ -218,10 +218,10 @@ mkStaticFiles :: FilePath -> StaticSite -> Q [Dec]
mkStaticFiles fp StaticSite = mkStaticFiles' fp "StaticRoute" True
mkStaticFiles fp PublicSite = mkStaticFiles' fp "PublicRoute" False
mkStaticFiles' :: FilePath -> -- ^ static directory
String -> -- ^ route constructor "StaticRoute"
Bool -> -- ^ append checksum query parameter
Q [Dec]
mkStaticFiles' :: FilePath -- ^ static directory
-> String -- ^ route constructor "StaticRoute"
-> Bool -- ^ append checksum query parameter
-> Q [Dec]
mkStaticFiles' fp routeConName makeHash = do
fs <- qRunIO $ getFileListPieces fp
concat `fmap` mapM mkRoute fs

View File

@ -1,5 +1,5 @@
name: yesod-static
version: 0.2.0
version: 0.2.0.1
license: BSD3
license-file: LICENSE
author: Michael Snoyman <michael@snoyman.com>