diff --git a/BlogLiterately.cabal b/BlogLiterately.cabal
--- a/BlogLiterately.cabal
+++ b/BlogLiterately.cabal
@@ -1,5 +1,5 @@
 Name:           BlogLiterately
-Version:        0.7.1.4
+Version:        0.7.1.5
 Synopsis:       A tool for posting Haskelly articles to blogs
 Description:    Write blog posts in Markdown format, then use BlogLiterately
                 to do syntax highlighting, format ghci sessions, and upload
diff --git a/src/Text/BlogLiterately/Options.hs b/src/Text/BlogLiterately/Options.hs
--- a/src/Text/BlogLiterately/Options.hs
+++ b/src/Text/BlogLiterately/Options.hs
@@ -263,7 +263,7 @@
                     &= typFile
                     &= name "style" &= name "s" &= explicit
      , _hsHighlight = enum
-       [ Just (HsColourInline defaultStylePrefs)
+       [ Nothing
          &= explicit
          &= name "hscolour-icss"
          &= help "highlight haskell: hscolour, inline style (default)"
@@ -281,7 +281,7 @@
          &= help "highlight haskell with highlighting-kate"
        ]
      , _otherHighlight = enum
-       [ Just True
+       [ Nothing
          &= explicit
          &= name "kate"
          &= help "highlight non-Haskell code with highlighting-kate (default)"
@@ -291,7 +291,7 @@
          &= help "don't highlight non-Haskell code"
        ]
      , _toc = enum
-       [ Just False
+       [ Nothing
          &= explicit
          &= name "no-toc"
          &= help "don't generate a table of contents (default)"
@@ -323,7 +323,7 @@
        &= help "tag (can specify more than one)"
 
      , _citations = enum
-        [ Just True
+        [ Nothing
           &= help "process citations (default)"
           &= name "citations"
           &= explicit
diff --git a/src/Text/BlogLiterately/Transform.hs b/src/Text/BlogLiterately/Transform.hs
--- a/src/Text/BlogLiterately/Transform.hs
+++ b/src/Text/BlogLiterately/Transform.hs
@@ -336,7 +336,7 @@
 
     >>> runTransforms xforms bl
 
-    >=> _2 (return . writeHtml writeOpts)
+    >=> (\(bl', p) -> return $ (bl', writeHtml (writeOpts bl') p) )
     >=> _2 (return . renderHtml)
   where
     parseFile opts =
@@ -355,16 +355,16 @@
                                      `S.insert` readerExtensions def
                 , readerSmart      = True
                 }
-    writeOpts = def
-                { writerReferenceLinks = True
-                , writerTableOfContents = toc' bl
-                , writerHTMLMathMethod =
-                  case math' bl of
-                    ""  -> PlainMath
-                    opt -> mathOption opt
-                , writerStandalone     = True
-                , writerTemplate       = blHtmlTemplate
-                }
+    writeOpts bl = def
+                   { writerReferenceLinks = True
+                   , writerTableOfContents = toc' bl
+                   , writerHTMLMathMethod =
+                     case math' bl of
+                       ""  -> PlainMath
+                       opt -> mathOption opt
+                   , writerStandalone     = True
+                   , writerTemplate       = blHtmlTemplate
+                   }
     mathOption opt
       | opt `isPrefixOf` "latexmathml" ||
         opt `isPrefixOf` "asciimathml" = LaTeXMathML (mathUrlMaybe opt)