From 45b8520af877014ecbf56566ec1b8b9d42027013 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Thu, 28 Jul 2011 18:53:59 -0700 Subject: Fix template problem for epub. --- src/Text/Pandoc/Templates.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'src/Text/Pandoc/Templates.hs') 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 -- cgit v1.2.3