@@ -35,8 +35,7 @@ import Data.Profunctor ( dimap, lmap )
3535import Rel8.Aggregate ( Aggregate( Aggregate ) )
3636import Rel8.Expr ( Expr, Col(..) )
3737import Rel8.Expr.Opaleye
38− ( scastExpr
39− , fromPrimExpr, toPrimExpr
38+ ( fromPrimExpr, toPrimExpr
4039 , traversePrimExpr
4140 , fromColumn, toColumn
4241 )
@@ -94,14 +93,14 @@ tableFields (toColumns -> names) = dimap toColumns fromColumns $
9493 name -> lmap (`hfield` field) (go specs name)
9594 where
9695 go :: SSpec spec -> Col Name spec -> Opaleye.TableFields (Col Insert spec) (Col Expr spec)
97− go SSpec {necessity, info} (NameCol name) = case necessity of
96+ go SSpec {necessity} (NameCol name) = case necessity of
9897 SRequired ->
9998 lmap (\(RequiredInsert a) -> toColumn $ toPrimExpr a) $
100− DB . scastExpr info . fromPrimExpr . fromColumn <$>
99+ DB . fromPrimExpr . fromColumn <$>
101100 Opaleye.requiredTableField name
102101 SOptional ->
103102 lmap (\(OptionalInsert ma) -> toColumn . toPrimExpr <$> ma) $
104− DB . scastExpr info . fromPrimExpr . fromColumn <$>
103+ DB . fromPrimExpr . fromColumn <$>
105104 Opaleye.optionalTableField name
106105
107106