Templates: Return empty string for json template.

Thanks to Dirk Laurie for pointing out the bug.
This commit is contained in:
John MacFarlane 2011-08-18 10:48:48 -07:00
parent 54520c4e6f
commit f2fb733e0d

View file

@ -82,6 +82,7 @@ getDefaultTemplate :: (Maybe FilePath) -- ^ User data directory to search first
-> String -- ^ Name of writer
-> IO (Either E.IOException String)
getDefaultTemplate _ "native" = return $ Right ""
getDefaultTemplate _ "json" = return $ Right ""
getDefaultTemplate user "odt" = getDefaultTemplate user "opendocument"
getDefaultTemplate user "epub" = getDefaultTemplate user "html"
getDefaultTemplate user writer = do