diff --git a/Sample.hs b/Sample.hs
--- a/Sample.hs
+++ b/Sample.hs
@@ -2,12 +2,12 @@
     , TemplateHaskell
     , FlexibleContexts
     , TypeOperators
+    , Trustworthy
  #-}
 -- {-# OPTIONS -ddump-splices #-}
 
 module Main where
 
-import qualified Data.Name
 import Data.NamedRecord
 import Data.Word
 
diff --git a/Sample2.hs b/Sample2.hs
--- a/Sample2.hs
+++ b/Sample2.hs
@@ -2,7 +2,6 @@
 
 module Sample2 where
 
-import qualified Data.Name
 import Data.NamedRecord
 import Data.Word
 
diff --git a/Setup.hs b/Setup.hs
new file mode 100644
--- /dev/null
+++ b/Setup.hs
@@ -0,0 +1,4 @@
+import Distribution.Simple
+
+main = defaultMain
+
diff --git a/Setup.lhs b/Setup.lhs
deleted file mode 100644
--- a/Setup.lhs
+++ /dev/null
@@ -1,4 +0,0 @@
-import Distribution.Simple
-
-main = defaultMain
-
diff --git a/named-records.cabal b/named-records.cabal
--- a/named-records.cabal
+++ b/named-records.cabal
@@ -1,5 +1,5 @@
 Name:           named-records
-Version:        0.3.2
+Version:        0.3.3
 Synopsis:       Flexible records with named fields.
 Description:    Flexible records with named fields.
                 .
@@ -22,6 +22,9 @@
                     requirements bumped for names-v0.3
                 .
                 [@v0.3.2@] Added @new@.
+                .
+                [@v0.3.3@] Pushed requirements for @names-0.3.1@.
+                    Updated documentation and samples.
                 
 License:        MIT
 License-File:   LICENSE
@@ -41,7 +44,7 @@
 Source-Repository head
     type: darcs
     location: hub.darcs.net:names
-    tag: v0.3.2
+    tag: v0.3.3
 
 
 
@@ -49,7 +52,7 @@
     Exposed-Modules:    Data.NamedRecord
 
     Build-Depends:      base >= 4 && < 5,
-                        names == 0.3,
+                        names == 0.3.1,
                         template-haskell >= 2.7
 
     Hs-Source-Dirs:     src
diff --git a/src/Data/NamedRecord.hs b/src/Data/NamedRecord.hs
--- a/src/Data/NamedRecord.hs
+++ b/src/Data/NamedRecord.hs
@@ -22,7 +22,6 @@
 
 This is how a typical example preamble looks like:
 
-> import qualified Data.Name
 > import Data.NamedRecord
 
 In order to use names you need to declare them first
@@ -114,7 +113,6 @@
 
 > module Sample2 where
 > 
-> import qualified Data.Name
 > import Data.NamedRecord
 > import Data.Word
 > 
@@ -132,7 +130,6 @@
 
 > module Sample where
 > 
-> import qualified Data.Name
 > import Data.NamedRecord
 > import Data.Word
 > 
@@ -415,6 +412,5 @@
 instance (Show n) => FieldNames (n := ns) where
 
     _fieldNames xs (n := _) = show n : xs
-