AP
Size: a a a
AP
AP
AP
do
users <- query @User
|> orderBy #firstname
|> limit 10
|> fetch
AP
AP
let user = newRecord @User
|> set #firstname "Max"
|> set #lastname "Mustermann"
А давайте ещё и на то, как народ линзы пользует, забьём и сделаем через пайп!X
AP
AP
С
X
X
AP
AP
AP
newtype Query = Query {
fromQuery :: ByteString
} deriving (Eq, Ord, Typeable)
instance Read Query where
readsPrec i = fmap (first Query) . readsPrec i
instance IsString Query where
fromString = Query . toByteString . stringUtf8
такое вот сейфтиD
X
D
R