git.iko.soy/typeable/postgresql-simple
on master help sign in
Uncomment Result instance for Maybe types
153ef46Leon P Smith
src/Database/PostgreSQL/Simple/Result.hs+2−2
compare with master
unifiedsplit
@@ -92,11 +92,11 @@ class Result a where
92 -- Returns an exception if the conversion fails. In the case of
92 -- Returns an exception if the conversion fails. In the case of
93 -- library instances, this will usually be a 'ResultError', but may
93 -- library instances, this will usually be a 'ResultError', but may
94 -- be a 'UnicodeException'.
94 -- be a 'UnicodeException'.
95−{--
95+
96instance (Result a) => Result (Maybe a) where
96instance (Result a) => Result (Maybe a) where
97 convert _ Nothing = pure Nothing
97 convert _ Nothing = pure Nothing
98 convert f bs = Just <$> convert f bs
98 convert f bs = Just <$> convert f bs
99−
99+{--
100instance Result Bool where
100instance Result Bool where
101 convert = atto ok8 ((/=(0::Int)) <$> decimal)
101 convert = atto ok8 ((/=(0::Int)) <$> decimal)
102
102