@@ -66,7 +66,7 @@ You may optionally specify separators using @$sep$@:
6666
6767module Text.Pandoc.Templates ( renderTemplate
6868 , TemplateTarget
69− , getTemplate ) where
69+ , getDefaultTemplate ) where
7070
7171import Text.ParserCombinators.Parsec
7272import Control.Monad (liftM, when, forM)
@@ -86,14 +86,14 @@ import System.IO.UTF8 ( readFile )
8686#endif
8787import Paths_pandoc (getDataFileName)
8888
89−-- | Get a template for the specified writer.
90−getTemplate :: (Maybe FilePath) -- ^ User data directory to search first
91− -> String -- ^ Name of writer
92− -> IO (Either E.IOException String)
93−getTemplate _ "native" = return $ Right ""
94−getTemplate user "s5" = getTemplate user "html"
95−getTemplate user "odt" = getTemplate user "opendocument"
96−getTemplate user writer = do
89+-- | Get default template for the specified writer.
90+getDefaultTemplate :: (Maybe FilePath) -- ^ User data directory to search first
91+ -> String -- ^ Name of writer
92+ -> IO (Either E.IOException String)
93+getDefaultTemplate _ "native" = return $ Right ""
94+getDefaultTemplate user "s5" = getDefaultTemplate user "html"
95+getDefaultTemplate user "odt" = getDefaultTemplate user "opendocument"
96+getDefaultTemplate user writer = do
9797 let format = takeWhile (/='+') writer -- strip off "+lhs" if present
9898 let fname = "templates" </> format <.> "template"
9999 E.try $ case user of