@@ -152,8 +152,8 @@ deriveArbitrary t = do
152152 ba = VarE 'genericArbitrary
153153 bs = VarE 'genericShrink
154154 pure [InstanceD Nothing ctx (ConT ''Arbitrary `AppT` datatypeType tinfo)
155− [ pure $ FunD 'arbitrary [Clause [] (NormalB ba) []]
156− , pure $ FunD 'shrink [Clause [] (NormalB bs) []] ]
155+ [ FunD 'arbitrary [Clause [] (NormalB ba) []]
156+ , FunD 'shrink [Clause [] (NormalB bs) []] ] ]
157157 -- (pure )
158158 -- (pure $ ConT ''ToSchema `AppT` datatypeType tinfo)
159159 -- [ funD 'declareNamedSchema $ pure $ clause [] (normalB body) [] ]