diff --git a/Database/Persist/GenericSql.hs b/Database/Persist/GenericSql.hs
--- a/Database/Persist/GenericSql.hs
+++ b/Database/Persist/GenericSql.hs
@@ -539,10 +539,12 @@
             [ ClassP ''MonadPeelIO [VarT $ mkName "m"]
             ]
             $ ConT ''Migration `AppT` (ConT ''SqlPersist `AppT` VarT (mkName "m"))
+    body :: Q Exp
     body =
         case defs of
             [] -> [|return ()|]
             _ -> DoE `fmap` mapM toStmt defs
+    toStmt :: EntityDef -> Q Stmt
     toStmt ed = do
         let n = entityName ed
         u <- [|undefined|]
diff --git a/Database/Persist/TH.hs b/Database/Persist/TH.hs
--- a/Database/Persist/TH.hs
+++ b/Database/Persist/TH.hs
@@ -175,6 +175,7 @@
     clauses <- mapM go pairs
     return $ FunD (mkName "toPersistFields") $ degen clauses
   where
+    go :: (String, Int) -> Q Clause
     go (constr, fields) = do
         xs <- sequence $ replicate fields $ newName "x"
         let pat = ConP (mkName constr) $ map VarP xs
@@ -205,6 +206,7 @@
     pairs' <- mapM go pairs
     return $ FunD (mkName "persistUniqueToValues") $ degen pairs'
   where
+    go :: (String, [String]) -> Q Clause
     go (constr, names) = do
         xs <- mapM (const $ newName "x") names
         let pat = ConP (mkName constr) $ map VarP xs
diff --git a/persistent.cabal b/persistent.cabal
--- a/persistent.cabal
+++ b/persistent.cabal
@@ -1,5 +1,5 @@
 name:            persistent
-version:         0.4.0
+version:         0.4.0.1
 license:         BSD3
 license-file:    LICENSE
 author:          Michael Snoyman <michael@snoyman.com>