diff --git a/Network/Mail/Mime.hs b/Network/Mail/Mime.hs
--- a/Network/Mail/Mime.hs
+++ b/Network/Mail/Mime.hs
@@ -21,6 +21,7 @@
 import qualified Data.ByteString.Lazy as L
 import Blaze.ByteString.Builder.Char.Utf8
 import Blaze.ByteString.Builder
+import Blaze.ByteString.Builder.Internal.Write (fromWriteList)
 import Data.Monoid
 import System.Random
 import Control.Arrow
@@ -103,8 +104,8 @@
       $ []
     builder =
         case encoding of
-            None -> fromWrite16List writeByteString $ L.toChunks content
-            Base64 -> fromWrite16List writeWord8 $ map (toEnum . fromEnum)
+            None -> fromWriteList writeByteString $ L.toChunks content
+            Base64 -> fromWriteList writeWord8 $ map (toEnum . fromEnum)
                     $ encode $ L.unpack content
 
 showPairs :: RandomGen g
diff --git a/mime-mail.cabal b/mime-mail.cabal
--- a/mime-mail.cabal
+++ b/mime-mail.cabal
@@ -1,5 +1,5 @@
 Name:                mime-mail
-Version:             0.0.0.3
+Version:             0.0.0.4
 Synopsis:            Compose MIME email messages.
 Description:         This package provides some high-level datatypes for declaring MIME email messages, functions for automatically composing these into bytestrings, and the ability to send bytestrings via the sendmail executable. You can also use any other library you wish to send via different methods, eg directly to SMTP.
 Homepage:            http://github.com/snoyberg/mime-mail
@@ -20,7 +20,7 @@
                  , dataenc             >= 0.13.0.4   && < 0.14
                  , process             >= 1.0        && < 1.1
                  , random              >= 1.0        && < 1.1
-                 , blaze-builder       >= 0.2        && < 0.3
+                 , blaze-builder       >= 0.2.1      && < 0.3
                  , bytestring          >= 0.9.1      && < 0.10
                  , text                >= 0.7        && < 0.12