diff --git a/JSONb.cabal b/JSONb.cabal
--- a/JSONb.cabal
+++ b/JSONb.cabal
@@ -1,5 +1,5 @@
 name                          : JSONb
-version                       : 1.0.7
+version                       : 1.0.8
 category                      : Text
 license                       : BSD3
 license-file                  : LICENSE
@@ -36,7 +36,7 @@
                               , containers
                               , utf8-string >= 0.3
                               , bytestring >= 0.9
-                              , attoparsec >= 0.8
+                              , attoparsec >= 0.10
                               , bytestring-nums >= 0.3.1
                               , bytestring-trie >= 0.1.4
   exposed-modules             : Text.JSONb
@@ -63,7 +63,7 @@
                               , containers
                               , utf8-string >= 0.3
                               , bytestring >= 0.9
-                              , attoparsec >= 0.8
+                              , attoparsec >= 0.10
                               , bytestring-nums >= 0.3.1
                               , bytestring-trie >= 0.1.4
   extensions                  : FlexibleInstances
diff --git a/Text/JSONb/Decode.hs b/Text/JSONb/Decode.hs
--- a/Text/JSONb/Decode.hs
+++ b/Text/JSONb/Decode.hs
@@ -24,8 +24,9 @@
 import Data.Attoparsec (eitherResult)
 import Data.Attoparsec.Char8 ( choice, char, Parser, option, takeWhile1,
                                takeWhile, skipMany, satisfy, signed,
-                               decimal, Result(..)                       )
+                               decimal                                   )
 import qualified Data.Attoparsec.Char8 as Attoparsec
+import qualified Data.Attoparsec.Types as AttoparsecT
 import Data.ByteString.Nums.Careless
 
 import Text.JSONb.Simple
@@ -45,9 +46,9 @@
  -}
 break                       ::  ByteString -> (Either String JSON, ByteString)
 break bytes                  =  case Attoparsec.parse json bytes of
-  Done remainder result     ->  (Right result, remainder)
-  Fail _ _ s                ->  (Left s, bytes)
-  Partial _                 ->  (Left "Partial", bytes)
+  AttoparsecT.Done remainder result     ->  (Right result, remainder)
+  AttoparsecT.Fail _ _ s                ->  (Left s, bytes)
+  AttoparsecT.Partial _                 ->  (Left "Partial", bytes)
 
 
 {-| Tries to parse any JSON literal.
diff --git a/Text/JSONb/Schema.hs b/Text/JSONb/Schema.hs
--- a/Text/JSONb/Schema.hs
+++ b/Text/JSONb/Schema.hs
@@ -11,9 +11,11 @@
 import Data.Ord
 import Data.Word
 import Data.List (permutations)
-import Data.Set as Set
+import Data.Set (Set)
+import qualified Data.Set as Set
 
-import Data.Trie as Trie
+import Data.Trie (Trie)
+import qualified Data.Trie as Trie
 
 import qualified Text.JSONb.Simple as Simple