diff --git a/src/Command/All.hs b/src/Command/All.hs index db16add..f9f486e 100644 --- a/src/Command/All.hs +++ b/src/Command/All.hs @@ -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