haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Handling StaticFiles

Browse Source
This commit is contained in:
Michael Snoyman 2011-07-17 20:54:16 +03:00
parent 5ece9efca0
commit ea51828143
1 changed files with 23 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
Scaffold/Build.hs
View File

@ -25,7 +25,7 @@ import qualified Data.Map as Map
import qualified Data.Set as Set import qualified Data.Set as Set
import System.PosixCompat.Files (accessTime, modificationTime, getFileStatus, setFileTimes, FileStatus) import System.PosixCompat.Files (accessTime, modificationTime, getFileStatus, setFileTimes, FileStatus)
import Data.Text (unpack) import Data.Text (unpack)
import Control.Monad (filterM) import Control.Monad (filterM, forM)
import Control.Exception (SomeException, try) import Control.Exception (SomeException, try)
-- | Touch any files with altered dependencies but do not build -- | Touch any files with altered dependencies but do not build
@ -110,7 +110,7 @@ findHaskellFiles path = do
then return [y] then return [y]
else return [] else return []
data TempType = Hamlet | Verbatim | Messages FilePath data TempType = Hamlet | Verbatim | Messages FilePath | StaticFiles FilePath
deriving Show deriving Show
determineHamletDeps :: FilePath -> IO [FilePath] determineHamletDeps :: FilePath -> IO [FilePath]
@ -119,12 +119,13 @@ determineHamletDeps x = do
let z = A.parse (A.many $ (parser <|> (A.anyChar >> return Nothing))) y let z = A.parse (A.many $ (parser <|> (A.anyChar >> return Nothing))) y
case z of case z of
A.Fail{} -> return [] A.Fail{} -> return []
A.Done _ r -> filterM doesFileExist $ concatMap go r A.Done _ r -> mapM go r >>= filterM doesFileExist . concat
where where
go (Just (Hamlet, f)) = [f, "hamlet/" ++ f ++ ".hamlet"] go (Just (Hamlet, f)) = return [f, "hamlet/" ++ f ++ ".hamlet"]
go (Just (Verbatim, f)) = [f] go (Just (Verbatim, f)) = return [f]
go (Just (Messages f, _)) = [f] go (Just (Messages f, _)) = return [f]
go Nothing = [] go (Just (StaticFiles fp, _)) = getFolderContents fp
go Nothing = return []
parser = do parser = do
ty <- (A.string "$(hamletFile " >> return Hamlet) ty <- (A.string "$(hamletFile " >> return Hamlet)
<|> (A.string "$(ihamletFile " >> return Hamlet) <|> (A.string "$(ihamletFile " >> return Hamlet)
@ -144,8 +145,13 @@ determineHamletDeps x = do
y <- A.many1 $ A.satisfy (/= '"') y <- A.many1 $ A.satisfy (/= '"')
A.string "\"" A.string "\""
return $ Messages $ concat [x, "/", y, ".msg"]) return $ Messages $ concat [x, "/", y, ".msg"])
<|> (do
A.string "\nstaticFiles \""
x <- A.many1 $ A.satisfy (/= '"')
return $ StaticFiles x)
case ty of case ty of
Messages{} -> return $ Just (ty, "") Messages{} -> return $ Just (ty, "")
StaticFiles{} -> return $ Just (ty, "")
_ -> do _ -> do
A.skipWhile isSpace A.skipWhile isSpace
_ <- A.char '"' _ <- A.char '"'
@ -154,3 +160,13 @@ determineHamletDeps x = do
A.skipWhile isSpace A.skipWhile isSpace
_ <- A.char ')' _ <- A.char ')'
return $ Just (ty, y) return $ Just (ty, y)
getFolderContents :: FilePath -> IO [FilePath]
getFolderContents fp = do
cs <- getDirectoryContents fp
let notHidden ('.':_) = False
notHidden _ = True
fmap concat $ forM (filter notHidden cs) $ \c -> do
let f = fp ++ '/' : c
isFile <- doesFileExist f
if isFile then return [f] else getFolderContents f