snap
Snap.StarterTH
type FileData = (String, String)
type DirData = FilePath
getDirs :: [FilePath] -> DirTree a -> [FilePath]
readTree :: FilePath -> IO ([DirData], [FileData])
dirQ :: FilePath -> Q Exp
buildData :: String -> FilePath -> Q [Dec]