diff --git a/Data/JsonStream/CLexType.hs b/Data/JsonStream/CLexType.hs
deleted file mode 100644
--- a/Data/JsonStream/CLexType.hs
+++ /dev/null
@@ -1,43 +0,0 @@
-{-# LINE 1 "CLexType.hs" #-}
-{-# LINE 1 "CLexType.hsc" #-}
-{-# LINE 2 "CLexType.hs" #-}
-{-# LANGUAGE GeneralizedNewtypeDeriving #-}
-{-# LINE 2 "CLexType.hsc" #-}
-module Data.JsonStream.CLexType where
-
-import Foreign.C.Types
-import Foreign
-
-newtype LexResultType = LexResultType CInt deriving (Show, Eq, Storable)
-
-
-{-# LINE 10 "CLexType.hsc" #-}
-
-resNumber  :: LexResultType
-resNumber  = LexResultType 0
-resString  :: LexResultType
-resString  = LexResultType 1
-resTrue  :: LexResultType
-resTrue  = LexResultType 2
-resFalse  :: LexResultType
-resFalse  = LexResultType 3
-resNull  :: LexResultType
-resNull  = LexResultType 4
-resOpenBrace  :: LexResultType
-resOpenBrace  = LexResultType 5
-resCloseBrace  :: LexResultType
-resCloseBrace  = LexResultType 6
-resOpenBracket  :: LexResultType
-resOpenBracket  = LexResultType 7
-resCloseBracket  :: LexResultType
-resCloseBracket  = LexResultType 8
-resStringPartial  :: LexResultType
-resStringPartial  = LexResultType 9
-resStringUni  :: LexResultType
-resStringUni  = LexResultType 11
-resNumberPartial  :: LexResultType
-resNumberPartial  = LexResultType 10
-resNumberSmall  :: LexResultType
-resNumberSmall  = LexResultType 12
-
-{-# LINE 28 "CLexType.hsc" #-}
diff --git a/Data/JsonStream/Parser.hs b/Data/JsonStream/Parser.hs
--- a/Data/JsonStream/Parser.hs
+++ b/Data/JsonStream/Parser.hs
@@ -236,13 +236,13 @@
     (TokMoreData ntok) -> MoreData (array' valparse, ntok)
     (TokFailed) -> Failed "Array - token failed"
   where
-    nextitem _ _ (ArrayEnd ctx) ntok = Done ctx ntok
+    nextitem !_ _ (ArrayEnd ctx) ntok = Done ctx ntok
     nextitem !i tok _ _ = arrcontent i (callParse (valparse i) tok)
 
     arrcontent !i (Done _ ntp) = moreData (nextitem (i+1)) ntp
     arrcontent !i (MoreData (Parser np, ntp)) = MoreData (Parser (arrcontent i . np), ntp)
     arrcontent !i (Yield v np) = Yield v (arrcontent i np)
-    arrcontent _ (Failed err) = Failed err
+    arrcontent !_ (Failed err) = Failed err
 
 -- | Match all items of an array.
 arrayOf :: Parser a -> Parser a
diff --git a/changelog.md b/changelog.md
--- a/changelog.md
+++ b/changelog.md
@@ -1,5 +1,8 @@
+# 0.4.1.2
+Slightly more strictness in arrayOf.
+
 # 0.4.1.1
-Fixed memory leak in arrayOf
+Fixed memory leak in arrayOf.
 
 # 0.4.1.0
 Added aeson-compatibile encode/decode functions.
diff --git a/json-stream.cabal b/json-stream.cabal
--- a/json-stream.cabal
+++ b/json-stream.cabal
@@ -1,5 +1,5 @@
 name:                json-stream
-version:             0.4.1.1
+version:             0.4.1.2
 synopsis:            Incremental applicative JSON parser
 description:         Easy to use JSON parser fully supporting incremental parsing.
                      Parsing grammar in applicative form.