Invert search order
This commit is contained in:
parent
bce1cc0901
commit
a212b7894f
|
@ -57,7 +57,7 @@ writeIndex podcasts templateName outdir = do
|
||||||
compileIndexTemplate :: String -> IO (Either ParseError Template)
|
compileIndexTemplate :: String -> IO (Either ParseError Template)
|
||||||
compileIndexTemplate templateName = do
|
compileIndexTemplate templateName = do
|
||||||
templateDir <- getDataFileName "templates"
|
templateDir <- getDataFileName "templates"
|
||||||
automaticCompile [templateDir, "."] templateName
|
automaticCompile [".", templateDir] templateName
|
||||||
|
|
||||||
writeIndexTemplate :: Either ParseError Template -> Index -> String -> String -> IO ()
|
writeIndexTemplate :: Either ParseError Template -> Index -> String -> String -> IO ()
|
||||||
writeIndexTemplate (Left err) _ _ _ = print err
|
writeIndexTemplate (Left err) _ _ _ = print err
|
||||||
|
|
Loading…
Reference in New Issue