Driver.hs

responseProfile :: IO Response -> IO (Response, Maybe Profile)
responseProfile r = r >>= \r' -> case r' of
  ResponseSingle profile _ -> return (r', profile)
  ResponseError _ -> return (r', Nothing)
  ResponseBatch _ profile _ -> return (r', profile)

instance FromDatum a => Result (Cursor a) where
  convertResult v = do
    (r, p) <- responseProfile v
    c <- makeCursor $ return r
    return (c { cursorMap = unsafeFromDatum }, p)

Network.hs

makeCursor :: IO Response -> IO (Cursor Datum)
makeCursor cursorMBox = do
  cursorBuffer <- newMVar (Right ([], Nothing, False))
  return Cursor{..}
  where cursorMap = return . id