diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2011-07-28 18:53:59 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2011-07-28 18:53:59 -0700 |
| commit | 45b8520af877014ecbf56566ec1b8b9d42027013 (patch) | |
| tree | da48be417cf6ae4a5a8ca0bf026f0a55e3008022 /src | |
| parent | 57821e1cdf8aeb2e5756b75365ba457b14ac7f3b (diff) | |
| download | pandoc-45b8520af877014ecbf56566ec1b8b9d42027013.tar.gz | |
Fix template problem for epub.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Templates.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Templates.hs b/src/Text/Pandoc/Templates.hs index 8b966ca7a..19c9a808a 100644 --- a/src/Text/Pandoc/Templates.hs +++ b/src/Text/Pandoc/Templates.hs @@ -83,6 +83,7 @@ getDefaultTemplate :: (Maybe FilePath) -- ^ User data directory to search first -> IO (Either E.IOException String) getDefaultTemplate _ "native" = return $ Right "" getDefaultTemplate user "odt" = getDefaultTemplate user "opendocument" +getDefaultTemplate user "epub" = getDefaultTemplate user "html" getDefaultTemplate user writer = do let format = takeWhile (/='+') writer -- strip off "+lhs" if present let fname = "templates" </> "default" <.> format |