diff --git a/names.cabal b/names.cabal
--- a/names.cabal
+++ b/names.cabal
@@ -1,11 +1,33 @@
 Name:           names
-Version:        0.2.1
+Version:        0.2.2
 Synopsis:       Type level names.
 Description:    Type level names.
                 .
                 [@v0.2@] Show Instances added. Restricted to latin1.
                 .
                 [@v0.2.1@] Infix operator fixities set.
+                .
+                [@v0.2.2@] Merge "Data.Name" and "Data.Name.TH".
+                Added Documentation.
+                .
+                Names are like strings on the type level.
+                This is a name:
+                .
+                > H :& E :& L :& L :& O :& W_ :& O :& R :& L :& D
+                .
+                This package provides types which can be used
+                as letters and a cons operator (@:&@). It also
+                provides syntactic sugar for using names via
+                template haskell:
+                .
+                > name "helloWorld"
+                .
+                This will create a value named @helloWorld@
+                which has the above type and can be used to
+                work with the name.
+                .
+                Names are useful for named records. See the
+                @named-records@ package.
 
 License:        MIT
 License-File:   LICENSE
@@ -16,9 +38,19 @@
 Category:       Data, Type System
 Stability:      experimental
 
+
+Source-Repository head
+    type: darcs
+    location: hub.darcs.net:names
+
+Source-Repository head
+    type: darcs
+    location: hub.darcs.net:names
+    tag: v0.2.2
+
+
 Library
-    Exposed-Modules:    Data.Name,                     
-                        Data.Name.TH
+    Exposed-Modules:    Data.Name
 
     Other-Modules:      Data.Name.Internal.Names,
                         Data.Name.Internal.TH
diff --git a/src/Data/Name.hs b/src/Data/Name.hs
--- a/src/Data/Name.hs
+++ b/src/Data/Name.hs
@@ -5,7 +5,9 @@
 
 module Data.Name (
     (:&),
-    module Data.Name.Internal.Names
+    module Data.Name.Internal.Names,
+
+    name, nameT, nameV
 ) where
 
 
diff --git a/src/Data/Name/TH.hs b/src/Data/Name/TH.hs
deleted file mode 100644
--- a/src/Data/Name/TH.hs
+++ /dev/null
@@ -1,11 +0,0 @@
-{-# LANGUAGE Haskell2010
- #-}
-
-module Data.Name.TH (
-    name, nameT, nameV
-) where
-
-
-import Data.Name.Internal.TH
-
-