Skip to content

Instantly share code, notes, and snippets.

@codedmart

codedmart/Driver.hs

Created November 26, 2014 18:20
Show Gist options
  • Save codedmart/3db8b8f32fd8e58310c9 to your computer and use it in GitHub Desktop.
Save codedmart/3db8b8f32fd8e58310c9 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Driver.hs
instance FromDatum a => Result (Cursor a) where
convertResult r = do
(v, _) <- convertResult r
(_, p) <- responseProfile v
c <- makeCursor r
return (c { cursorMap = unsafeFromDatum }, p)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment