diff --git a/ms-tds.cabal b/ms-tds.cabal
--- a/ms-tds.cabal
+++ b/ms-tds.cabal
@@ -1,13 +1,13 @@
 cabal-version: 1.12
 
--- This file has been generated from package.yaml by hpack version 0.31.1.
+-- This file has been generated from package.yaml by hpack version 0.33.0.
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: 6b929ccf4f7917678f4bf7ee98be72ed9fd5eb5505a7379bb35387ddc1004d42
+-- hash: 62ac1f20af7f048e2567752d2a2b224f35b742e04aa39beed9bb54ab0c5c5d2e
 
 name:           ms-tds
-version:        0.4.0.1
+version:        0.4.0.2
 synopsis:       TDS Protocol implemented in Haskell
 description:    Please see the README on GitHub at <https://github.com/mitsuji/ms-tds#readme>
 category:       Database
diff --git a/src/Database/Tds/Primitives/Fixed.hs b/src/Database/Tds/Primitives/Fixed.hs
--- a/src/Database/Tds/Primitives/Fixed.hs
+++ b/src/Database/Tds/Primitives/Fixed.hs
@@ -84,7 +84,6 @@
 
 import Data.Monoid ((<>))
 import Language.Haskell.TH
-import Language.Haskell.TH.Syntax (returnQ)
 import Data.Fixed (HasResolution(..),Fixed(..))
 
 
@@ -92,9 +91,9 @@
 -- ...
 -- data Exp38
 #if MIN_VERSION_template_haskell(2,11,0)
-returnQ $ (flip map) [0..38] $ \i -> DataD [] (mkName $ "Exp" <> (show i)) [] Nothing [] []
+$(return $ (flip map) [0..38] $ \i -> DataD [] (mkName $ "Exp" <> (show i)) [] Nothing [] [])
 #else
-returnQ $ (flip map) [0..38] $ \i -> DataD [] (mkName $ "Exp" <> (show i)) [] [] []
+$(return $ (flip map) [0..38] $ \i -> DataD [] (mkName $ "Exp" <> (show i)) [] [] [])
 #endif
 
 
@@ -102,20 +101,20 @@
 -- ...
 -- instance HasResolution Exp38 where resolution _ = 100000000000000000000000000000000000000
 #if MIN_VERSION_template_haskell(2,11,0)
-returnQ $ (flip map) [0..38] $ \i ->
-  InstanceD Nothing [] (AppT (ConT ''HasResolution) (ConT $ (mkName $ "Exp" <> (show i))))
-  [FunD 'resolution [Clause [WildP] (NormalB (LitE (IntegerL (10^i)))) []]]
+$(return $ (flip map) [0..38] $ \i ->
+    InstanceD Nothing [] (AppT (ConT ''HasResolution) (ConT $ (mkName $ "Exp" <> (show i))))
+    [FunD 'resolution [Clause [WildP] (NormalB (LitE (IntegerL (10^i)))) []]])
 #else
-returnQ $ (flip map) [0..38] $ \i ->
-  InstanceD [] (AppT (ConT ''HasResolution) (ConT $ (mkName $ "Exp" <> (show i))))
-  [FunD 'resolution [Clause [WildP] (NormalB (LitE (IntegerL (10^i)))) []]]
+$(return $ (flip map) [0..38] $ \i ->
+    InstanceD [] (AppT (ConT ''HasResolution) (ConT $ (mkName $ "Exp" <> (show i))))
+    [FunD 'resolution [Clause [WildP] (NormalB (LitE (IntegerL (10^i)))) []]])
 #endif
 
 
 -- type Fixed0 = Fixed Exp0
 -- ...
 -- type Fixed38 = Fixed Exp38
-returnQ $ (flip map) [0..38] $ \i -> TySynD (mkName $ "Fixed" <> (show i)) [] $
-                                     AppT (ConT ''Fixed) (ConT $ mkName $ "Exp" <> (show i))
+$(return $ (flip map) [0..38] $ \i -> TySynD (mkName $ "Fixed" <> (show i)) [] $
+                                      AppT (ConT ''Fixed) (ConT $ mkName $ "Exp" <> (show i)))