@@ -85,16 +85,6 @@ instance Sql DBType a => Table Identity (Identity a) where
8585 fromColumns (HType (Result a)) = Identity a
8686
8787
88−{-}
89−instance Sql DBType a => Table Insertion (Insertion a) where
90− type Columns (Insertion a) = HType a
91− type Context (Insertion a) = Insertion
92−
93− toColumns (Insertion a) = HType (RequiredInsert a)
94− fromColumns (HType (RequiredInsert a)) = Insertion a
95−-}
96−
97−
9888instance
9989 ( Table context a, Table context b
10090 , Labelable context