persistent 0.4.0 → 0.4.0.1

raw patch · 3 files changed

+5/−1 lines, 3 files

Files

• Database/Persist/GenericSql.hs +2/−0
• Database/Persist/TH.hs +2/−0
• persistent.cabal +1/−1

@@ -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|]

@@ -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

@@ -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>