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 templateName = do
|
||||
templateDir <- getDataFileName "templates"
|
||||
automaticCompile [templateDir, "."] templateName
|
||||
automaticCompile [".", templateDir] templateName
|
||||
|
||||
writeIndexTemplate :: Either ParseError Template -> Index -> String -> String -> IO ()
|
||||
writeIndexTemplate (Left err) _ _ _ = print err
|
||||
|
|
Loading…
Reference in New Issue