nikita-volkov/hasql
1
1
Fork 0
mirror of https://github.com/nikita-volkov/hasql.git synced 2024-12-28 04:57:14 +03:00
Code Issues Projects Releases Wiki Activity

Docs

Browse Source
This commit is contained in:
Nikita Volkov 2015-11-21 13:20:44 +03:00
parent 6fe2069c5b
commit 9d5687e4de
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
library/Hasql/Deserialization.hs
View File

@ -654,14 +654,14 @@ newtype Composite a =
deriving (Functor, Applicative, Monad)
-- |
-- Lift a 'Value' deserializer into an 'Composite' deserializer for parsing of non-nullable leaf values.
-- Lift a 'Value' deserializer into a 'Composite' deserializer for parsing of non-nullable leaf values.
{-# INLINABLE compositeValue #-}
compositeValue :: Value a -> Composite a
compositeValue (Value imp) =
Composite (Composite.nonNullValue (Value.run imp))
-- |
-- Lift a 'Value' deserializer into an 'Composite' deserializer for parsing of nullable leaf values.
-- Lift a 'Value' deserializer into a 'Composite' deserializer for parsing of nullable leaf values.
{-# INLINABLE compositeNullableValue #-}
compositeNullableValue :: Value a -> Composite (Maybe a)
compositeNullableValue (Value imp) =