diff --git a/Codec/BMP.hs b/Codec/BMP.hs
--- a/Codec/BMP.hs
+++ b/Codec/BMP.hs
@@ -159,7 +159,7 @@
 		$ Right $ BMP 
 		{ bmpFileHeader 	= fileHeader
 		, bmpBitmapInfo		= imageHeader
-		, bmpRawImageData	= BS.pack $ BSL.unpack bufImage }
+		, bmpRawImageData	= BS.concat $ BSL.toChunks bufImage }
 
 
 -- Writing ----------------------------------------------------------------------------------------
diff --git a/Codec/BMP/Error.hs b/Codec/BMP/Error.hs
--- a/Codec/BMP/Error.hs
+++ b/Codec/BMP/Error.hs
@@ -10,7 +10,8 @@
 
         -- | Magic number was not at the start of the file, 
         --   so this probably isn't a BMP file.
-        = ErrorBadMagic                         Word16
+        = ErrorBadMagic
+        { errorMagic            :: Word16 }
 
         -- | File is too short to contain a file header.
 	| ErrorFileHeaderTruncated
diff --git a/Codec/BMP/FileHeader.hs b/Codec/BMP/FileHeader.hs
--- a/Codec/BMP/FileHeader.hs
+++ b/Codec/BMP/FileHeader.hs
@@ -10,7 +10,8 @@
 import Data.Binary
 import Data.Binary.Get	
 import Data.Binary.Put
-	
+
+
 -- File Headers -----------------------------------------------------------------------------------
 -- | BMP file header.
 data FileHeader
diff --git a/Codec/BMP/Unpack.hs b/Codec/BMP/Unpack.hs
--- a/Codec/BMP/Unpack.hs
+++ b/Codec/BMP/Unpack.hs
@@ -128,5 +128,3 @@
 		
 		go (posX + 1) posY (oSrc + 4) (oDest + 4)
 
-
-		
diff --git a/bmp.cabal b/bmp.cabal
--- a/bmp.cabal
+++ b/bmp.cabal
@@ -1,5 +1,5 @@
 Name:                bmp
-Version:             1.2.0.2
+Version:             1.2.1.1
 License:             MIT
 License-file:        LICENSE
 Author:              Ben Lippmeier