@@ -121,22 +121,17 @@ instance Result Int64 where
121121instance Result Integer where
122122 convert = atto ok64 $ signed decimal
123123
124−{--
125124instance Result Float where
126125 convert = atto ok (realToFrac <$> double)
127− where ok = mkCompats [Float,Double,Decimal,NewDecimal,Tiny,Short,Int24]
126+ where ok = mkCompats [Float4,Int2]
128127
129128instance Result Double where
130129 convert = atto ok double
131− where ok = mkCompats [Float,Double,Decimal,NewDecimal,Tiny,Short,Int24,
132− Long]
133−--}
134−{--
130+ where ok = mkCompats [Float4,Float8,Int2,Int4]
131+
135132instance Result (Ratio Integer) where
136133 convert = atto ok rational
137− where ok = mkCompats [Float,Double,Decimal,NewDecimal,Tiny,Short,Int24,
138− Long,LongLong]
139−--}
134+ where ok = mkCompats [Float4,Float8,Int2,Int4,Numeric]
140135
141136unBinary (Binary x) = x
142137