diff --git a/dist/build/HStemplate-haskell-util-0.1.0.4.o b/dist/build/HStemplate-haskell-util-0.1.0.4.o
new file mode 100644
Binary files /dev/null and b/dist/build/HStemplate-haskell-util-0.1.0.4.o differ
diff --git a/dist/build/Language/Haskell/TH/Utils.hi b/dist/build/Language/Haskell/TH/Utils.hi
new file mode 100644
Binary files /dev/null and b/dist/build/Language/Haskell/TH/Utils.hi differ
diff --git a/dist/build/Language/Haskell/TH/Utils.o b/dist/build/Language/Haskell/TH/Utils.o
new file mode 100644
Binary files /dev/null and b/dist/build/Language/Haskell/TH/Utils.o differ
diff --git a/dist/build/autogen/Paths_template_haskell_util.hs b/dist/build/autogen/Paths_template_haskell_util.hs
new file mode 100644
--- /dev/null
+++ b/dist/build/autogen/Paths_template_haskell_util.hs
@@ -0,0 +1,35 @@
+module Paths_template_haskell_util (
+    version,
+    getBinDir, getLibDir, getDataDir, getLibexecDir,
+    getDataFileName, getSysconfDir
+  ) where
+
+import qualified Control.Exception as Exception
+import Data.Version (Version(..))
+import System.Environment (getEnv)
+import Prelude
+
+catchIO :: IO a -> (Exception.IOException -> IO a) -> IO a
+catchIO = Exception.catch
+
+version :: Version
+version = Version [0,1,0,4] []
+bindir, libdir, datadir, libexecdir, sysconfdir :: FilePath
+
+bindir     = "C:\\Users\\Song\\AppData\\Roaming\\cabal\\bin"
+libdir     = "C:\\Users\\Song\\AppData\\Roaming\\cabal\\x86_64-windows-ghc-7.8.3\\template-haskell-util-0.1.0.4"
+datadir    = "C:\\Users\\Song\\AppData\\Roaming\\cabal\\x86_64-windows-ghc-7.8.3\\template-haskell-util-0.1.0.4"
+libexecdir = "C:\\Users\\Song\\AppData\\Roaming\\cabal\\template-haskell-util-0.1.0.4"
+sysconfdir = "C:\\Users\\Song\\AppData\\Roaming\\cabal\\etc"
+
+getBinDir, getLibDir, getDataDir, getLibexecDir, getSysconfDir :: IO FilePath
+getBinDir = catchIO (getEnv "template_haskell_util_bindir") (\_ -> return bindir)
+getLibDir = catchIO (getEnv "template_haskell_util_libdir") (\_ -> return libdir)
+getDataDir = catchIO (getEnv "template_haskell_util_datadir") (\_ -> return datadir)
+getLibexecDir = catchIO (getEnv "template_haskell_util_libexecdir") (\_ -> return libexecdir)
+getSysconfDir = catchIO (getEnv "template_haskell_util_sysconfdir") (\_ -> return sysconfdir)
+
+getDataFileName :: FilePath -> IO FilePath
+getDataFileName name = do
+  dir <- getDataDir
+  return (dir ++ "\\" ++ name)
diff --git a/dist/build/autogen/cabal_macros.h b/dist/build/autogen/cabal_macros.h
new file mode 100644
--- /dev/null
+++ b/dist/build/autogen/cabal_macros.h
@@ -0,0 +1,100 @@
+/* DO NOT EDIT: This file is automatically generated by Cabal */
+
+/* package GenericPretty-1.2.1 */
+#define VERSION_GenericPretty "1.2.1"
+#define MIN_VERSION_GenericPretty(major1,major2,minor) (\
+  (major1) <  1 || \
+  (major1) == 1 && (major2) <  2 || \
+  (major1) == 1 && (major2) == 2 && (minor) <= 1)
+
+/* package base-4.7.0.1 */
+#define VERSION_base "4.7.0.1"
+#define MIN_VERSION_base(major1,major2,minor) (\
+  (major1) <  4 || \
+  (major1) == 4 && (major2) <  7 || \
+  (major1) == 4 && (major2) == 7 && (minor) <= 0)
+
+/* package ghc-prim-0.3.1.0 */
+#define VERSION_ghc_prim "0.3.1.0"
+#define MIN_VERSION_ghc_prim(major1,major2,minor) (\
+  (major1) <  0 || \
+  (major1) == 0 && (major2) <  3 || \
+  (major1) == 0 && (major2) == 3 && (minor) <= 1)
+
+/* package template-haskell-2.9.0.0 */
+#define VERSION_template_haskell "2.9.0.0"
+#define MIN_VERSION_template_haskell(major1,major2,minor) (\
+  (major1) <  2 || \
+  (major1) == 2 && (major2) <  9 || \
+  (major1) == 2 && (major2) == 9 && (minor) <= 0)
+
+/* tool alex-3.1.3 */
+#define TOOL_VERSION_alex "3.1.3"
+#define MIN_TOOL_VERSION_alex(major1,major2,minor) (\
+  (major1) <  3 || \
+  (major1) == 3 && (major2) <  1 || \
+  (major1) == 3 && (major2) == 1 && (minor) <= 3)
+
+/* tool cpphs-1.18.5 */
+#define TOOL_VERSION_cpphs "1.18.5"
+#define MIN_TOOL_VERSION_cpphs(major1,major2,minor) (\
+  (major1) <  1 || \
+  (major1) == 1 && (major2) <  18 || \
+  (major1) == 1 && (major2) == 18 && (minor) <= 5)
+
+/* tool gcc-4.6.3 */
+#define TOOL_VERSION_gcc "4.6.3"
+#define MIN_TOOL_VERSION_gcc(major1,major2,minor) (\
+  (major1) <  4 || \
+  (major1) == 4 && (major2) <  6 || \
+  (major1) == 4 && (major2) == 6 && (minor) <= 3)
+
+/* tool ghc-7.8.3 */
+#define TOOL_VERSION_ghc "7.8.3"
+#define MIN_TOOL_VERSION_ghc(major1,major2,minor) (\
+  (major1) <  7 || \
+  (major1) == 7 && (major2) <  8 || \
+  (major1) == 7 && (major2) == 8 && (minor) <= 3)
+
+/* tool ghc-pkg-7.8.3 */
+#define TOOL_VERSION_ghc_pkg "7.8.3"
+#define MIN_TOOL_VERSION_ghc_pkg(major1,major2,minor) (\
+  (major1) <  7 || \
+  (major1) == 7 && (major2) <  8 || \
+  (major1) == 7 && (major2) == 8 && (minor) <= 3)
+
+/* tool haddock-2.14.3 */
+#define TOOL_VERSION_haddock "2.14.3"
+#define MIN_TOOL_VERSION_haddock(major1,major2,minor) (\
+  (major1) <  2 || \
+  (major1) == 2 && (major2) <  14 || \
+  (major1) == 2 && (major2) == 14 && (minor) <= 3)
+
+/* tool happy-1.19.4 */
+#define TOOL_VERSION_happy "1.19.4"
+#define MIN_TOOL_VERSION_happy(major1,major2,minor) (\
+  (major1) <  1 || \
+  (major1) == 1 && (major2) <  19 || \
+  (major1) == 1 && (major2) == 19 && (minor) <= 4)
+
+/* tool hpc-0.67 */
+#define TOOL_VERSION_hpc "0.67"
+#define MIN_TOOL_VERSION_hpc(major1,major2,minor) (\
+  (major1) <  0 || \
+  (major1) == 0 && (major2) <  67 || \
+  (major1) == 0 && (major2) == 67 && (minor) <= 0)
+
+/* tool hsc2hs-0.67 */
+#define TOOL_VERSION_hsc2hs "0.67"
+#define MIN_TOOL_VERSION_hsc2hs(major1,major2,minor) (\
+  (major1) <  0 || \
+  (major1) == 0 && (major2) <  67 || \
+  (major1) == 0 && (major2) == 67 && (minor) <= 0)
+
+/* tool hscolour-1.20 */
+#define TOOL_VERSION_hscolour "1.20"
+#define MIN_TOOL_VERSION_hscolour(major1,major2,minor) (\
+  (major1) <  1 || \
+  (major1) == 1 && (major2) <  20 || \
+  (major1) == 1 && (major2) == 20 && (minor) <= 0)
+
diff --git a/dist/build/libHStemplate-haskell-util-0.1.0.4.a b/dist/build/libHStemplate-haskell-util-0.1.0.4.a
new file mode 100644
Binary files /dev/null and b/dist/build/libHStemplate-haskell-util-0.1.0.4.a differ
diff --git a/dist/package.conf.inplace/package.cache b/dist/package.conf.inplace/package.cache
new file mode 100644
Binary files /dev/null and b/dist/package.conf.inplace/package.cache differ
diff --git a/dist/package.conf.inplace/template-haskell-util-0.1.0.4-inplace.conf b/dist/package.conf.inplace/template-haskell-util-0.1.0.4-inplace.conf
new file mode 100644
--- /dev/null
+++ b/dist/package.conf.inplace/template-haskell-util-0.1.0.4-inplace.conf
@@ -0,0 +1,35 @@
+name: template-haskell-util
+version: 0.1.0.4
+id: template-haskell-util-0.1.0.4-inplace
+license: MIT
+copyright:
+maintainer: Haskell.Zhang.Song@hotmail.com
+stability: experimental
+homepage: https://github.com/HaskellZhangSong/TemplateHaskellUtils
+package-url:
+synopsis: Some utilities for template Haskell.
+description: Some functions that might be useful when you use template haskell.
+category: Template Haskell
+author: songzh
+exposed: True
+exposed-modules: Language.Haskell.TH.Utils
+hidden-modules:
+trusted: False
+import-dirs: D:\GHC\thu\TemplateHaskellUtils\dist\build
+library-dirs: D:\GHC\thu\TemplateHaskellUtils\dist\build
+hs-libraries: HStemplate-haskell-util-0.1.0.4
+extra-libraries:
+extra-ghci-libraries:
+include-dirs:
+includes:
+depends: GenericPretty-1.2.1-281911651e30ba17172d20e41038d2cb
+         base-4.7.0.1-7c4827d45272c6220486aa798a981cbc
+         ghc-prim-0.3.1.0-95dc0c72a075ab56f8cdd74470fc7c3d
+         template-haskell-2.9.0.0-53d2bc0fb77759033214841630b100f0
+hugs-options:
+cc-options:
+ld-options:
+framework-dirs:
+frameworks:
+haddock-interfaces: D:\GHC\thu\TemplateHaskellUtils\dist\doc\html\template-haskell-util\template-haskell-util.haddock
+haddock-html: D:\GHC\thu\TemplateHaskellUtils\dist\doc\html\template-haskell-util
diff --git a/dist/setup-config b/dist/setup-config
new file mode 100644
Binary files /dev/null and b/dist/setup-config differ
diff --git a/dist/setup/setup.hs b/dist/setup/setup.hs
new file mode 100644
--- /dev/null
+++ b/dist/setup/setup.hs
@@ -0,0 +1,1 @@
+import Distribution.Simple; main = defaultMain
diff --git a/dist/setup/setup.version b/dist/setup/setup.version
new file mode 100644
--- /dev/null
+++ b/dist/setup/setup.version
@@ -0,0 +1,1 @@
+Version {versionBranch = [1,22,0,0], versionTags = []}
diff --git a/src/Language/Haskell/TH/Utils.hs b/src/Language/Haskell/TH/Utils.hs
--- a/src/Language/Haskell/TH/Utils.hs
+++ b/src/Language/Haskell/TH/Utils.hs
@@ -177,17 +177,17 @@
 {-|
 > runQ [| (1+1) * 5|] >>= pp -- or use
 > printiQ  [| (1+1) * 5|]
-InfixE (Just InfixE (Just LitE (IntegerL 1))
-                    (VarE (Name (OccName "+")
-                                (NameG' VarName
-                                        (PkgName "base")
-                                        (ModName "GHC.Num"))))
-                    (Just LitE (IntegerL 1)))
-       (VarE (Name (OccName "*")
-                   (NameG' VarName
-                           (PkgName "base")
-                           (ModName "GHC.Num"))))
-       (Just LitE (IntegerL 5))
+> InfixE (Just InfixE (Just LitE (IntegerL 1))
+>                   (VarE (Name (OccName "+")
+>                                (NameG' VarName
+>                                        (PkgName "base")
+>                                        (ModName "GHC.Num"))))
+>                    (Just LitE (IntegerL 1)))
+>       (VarE (Name (OccName "*")
+>                   (NameG' VarName
+>                           (PkgName "base")
+>                           (ModName "GHC.Num"))))
+>       (Just LitE (IntegerL 5))
 -}
 printiQ :: Out a => Q a -> IO ()
 printiQ q = runQ q >>= pp
diff --git a/template-haskell-util.cabal b/template-haskell-util.cabal
--- a/template-haskell-util.cabal
+++ b/template-haskell-util.cabal
@@ -2,7 +2,7 @@
 -- further documentation, see http://haskell.org/cabal/users-guide/
 
 name:                template-haskell-util
-version:             0.1.0.3
+version:             0.1.0.4
 synopsis:            Some utilities for template Haskell.
 description:         Some functions that might be useful when you use template haskell.
 homepage:            https://github.com/HaskellZhangSong/TemplateHaskellUtils
@@ -11,8 +11,8 @@
 author:              songzh
 maintainer:          Haskell.Zhang.Song@hotmail.com
 -- copyright:           
-stability:	     experimental
-category:            Language
+stability:	         experimental
+category:            Template Haskell
 build-type:          Simple
 extra-source-files:  README.md
 cabal-version:       >=1.10
@@ -22,6 +22,6 @@
        Language.Haskell.TH.Utils  		       
   -- other-modules:       
   -- other-extensions:    
-  build-depends:       base ==4.*  , template-haskell >= 2.9 , GenericPretty >= 1.2.1
+  build-depends:       base ==4.*  , template-haskell >= 2.9 , GenericPretty >= 1.2.1, ghc-prim >= 0.3.1.0
   hs-source-dirs:      src
   default-language:    Haskell2010