diff --git a/rakuten.cabal b/rakuten.cabal
--- a/rakuten.cabal
+++ b/rakuten.cabal
@@ -3,7 +3,7 @@
 -- see: https://github.com/sol/hpack
 
 name:                rakuten
-version:             0.1.0.3
+version:             0.1.0.4
 synopsis:            The Rakuten API in Haskell
 description:         See README at <https://github.com/matsubara0507/rakuten#readme>
 homepage:            https://github.com/matsubara0507/rakuten#readme
@@ -50,7 +50,7 @@
     , http-client-tls >=0.3.3.1 && <0.4
     , http-types >=0.9.1 && <0.11
     , lens >=4.15.3 && <5.0
-    , req >=0.3.0 && <0.6
+    , req >=0.3.0 && <1.1.0
     , text >=1.2.2.1 && <1.3
     , unordered-containers >=0.2.8 && <0.3
   default-language: Haskell2010
@@ -75,7 +75,7 @@
     , http-client-tls >=0.3.3.1 && <0.4
     , http-types >=0.9.1 && <0.11
     , lens >=4.15.3 && <5.0
-    , req >=0.3.0 && <0.6
+    , req >=0.3.0 && <1.1.0
     , text >=1.2.2.1 && <1.3
     , unordered-containers >=0.2.8 && <0.3
     , servant-server >=0.9.1.1 && <0.13
diff --git a/src/Rakuten/Types/Base.hs b/src/Rakuten/Types/Base.hs
--- a/src/Rakuten/Types/Base.hs
+++ b/src/Rakuten/Types/Base.hs
@@ -8,6 +8,6 @@
     ) where
 
 import           Data.Extensible
-import           Data.Text             (Text)
+import           Data.Text       (Text)
 
 type ImageUrl = Record '[ "imageUrl"  ':>  Text ]
diff --git a/src/Rakuten/Types/Class.hs b/src/Rakuten/Types/Class.hs
--- a/src/Rakuten/Types/Class.hs
+++ b/src/Rakuten/Types/Class.hs
@@ -1,11 +1,10 @@
-{-# LANGUAGE DataKinds            #-}
-{-# LANGUAGE FlexibleContexts     #-}
-{-# LANGUAGE FlexibleInstances    #-}
-{-# LANGUAGE OverloadedStrings    #-}
-{-# LANGUAGE PolyKinds            #-}
-{-# LANGUAGE ScopedTypeVariables  #-}
-{-# LANGUAGE TypeOperators        #-}
-{-# LANGUAGE UndecidableInstances #-}
+{-# LANGUAGE FlexibleContexts      #-}
+{-# LANGUAGE FlexibleInstances     #-}
+{-# LANGUAGE MultiParamTypeClasses #-}
+{-# LANGUAGE OverloadedStrings     #-}
+{-# LANGUAGE ScopedTypeVariables   #-}
+{-# LANGUAGE TypeOperators         #-}
+{-# OPTIONS_GHC -fno-warn-orphans #-}
 
 module Rakuten.Types.Class
     ( ToParam(..)
@@ -32,7 +31,7 @@
     \v -> hgenerateFor (Proxy :: Proxy (KeyValue KnownSymbol FromJSON)) $
     \m -> let k = symbolVal (proxyAssocKey m) in
       case HM.lookup (fromString k) v of
-        Just a -> Field . return <$> parseJSON a
+        Just a  -> Field . return <$> parseJSON a
         Nothing -> fail $ "Missing key: " `mappend` k
 
 instance Forall (KeyValue KnownSymbol ToJSON) xs => ToJSON (Record xs) where
@@ -64,14 +63,14 @@
   toParam = (=:)
 
 instance ToParam Text where
-  toParam _ "" = mempty
+  toParam _ ""     = mempty
   toParam name txt = name =: txt
 
 instance ToParam Bool where
   toParam name = (=:) name . bool 0 (1 :: Int)
 
 instance ToParam [Text] where
-  toParam _ [] = mempty
+  toParam _ []    = mempty
   toParam name xs = name =: foldl1 (\acc s -> acc <> "," <> s) (fmap show xs)
 
 instance ToParam a => ToParam (Maybe a) where
diff --git a/src/Rakuten/Types/Error.hs b/src/Rakuten/Types/Error.hs
--- a/src/Rakuten/Types/Error.hs
+++ b/src/Rakuten/Types/Error.hs
@@ -1,6 +1,6 @@
-{-# LANGUAGE DataKinds         #-}
-{-# LANGUAGE FlexibleContexts  #-}
-{-# LANGUAGE TypeOperators     #-}
+{-# LANGUAGE DataKinds        #-}
+{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE TypeOperators    #-}
 
 module Rakuten.Types.Error
     ( RakutenError
diff --git a/test/Rakuten/Test/Class.hs b/test/Rakuten/Test/Class.hs
--- a/test/Rakuten/Test/Class.hs
+++ b/test/Rakuten/Test/Class.hs
@@ -1,7 +1,8 @@
-{-# LANGUAGE FlexibleContexts     #-}
-{-# LANGUAGE FlexibleInstances    #-}
-{-# LANGUAGE OverloadedStrings    #-}
-{-# LANGUAGE TypeSynonymInstances #-}
+{-# LANGUAGE FlexibleContexts      #-}
+{-# LANGUAGE FlexibleInstances     #-}
+{-# LANGUAGE MultiParamTypeClasses #-}
+{-# LANGUAGE OverloadedStrings     #-}
+{-# LANGUAGE TypeSynonymInstances  #-}
 
 module Rakuten.Test.Class
     ( TestData(..)
diff --git a/test/Rakuten/Test/MockServer.hs b/test/Rakuten/Test/MockServer.hs
--- a/test/Rakuten/Test/MockServer.hs
+++ b/test/Rakuten/Test/MockServer.hs
@@ -10,11 +10,11 @@
     , runMockServer
     ) where
 
-import           Rakuten.Test.Class
-import           Rakuten.Types
 import           Control.Concurrent
 import           Control.Exception
 import           Network.Wai.Handler.Warp
+import           Rakuten.Test.Class
+import           Rakuten.Types
 import           Servant
 
 type RakutenHeader a = a