diff --git a/Database/Persist/TH.hs b/Database/Persist/TH.hs
--- a/Database/Persist/TH.hs
+++ b/Database/Persist/TH.hs
@@ -4,6 +4,7 @@
 -- need to use this module.
 module Database.Persist.TH
     ( mkPersist
+    , share
     , share2
     , mkSave
     , mkDeleteCascade
@@ -374,6 +375,9 @@
         Update -> ""
         _ -> show pu
     ]
+
+share :: [[EntityDef] -> Q [Dec]] -> [EntityDef] -> Q [Dec]
+share fs x = fmap concat $ mapM ($ x) fs
 
 share2 :: ([EntityDef] -> Q [Dec])
        -> ([EntityDef] -> Q [Dec])
diff --git a/persistent.cabal b/persistent.cabal
--- a/persistent.cabal
+++ b/persistent.cabal
@@ -1,5 +1,5 @@
 name:            persistent
-version:         0.4.0.1
+version:         0.4.1
 license:         BSD3
 license-file:    LICENSE
 author:          Michael Snoyman <michael@snoyman.com>