-- * Functions for interacting with Curl

-- | Function that will accept Curl's output, do nothing with it, and report
-- that it has consumed the entire thing.
dummyWriteFunction :: Ptr CChar -> CInt -> CInt -> Ptr () -> IO CInt
dummyWriteFunction _ width num _ = return $ width * num
dummyWriteFunction :: Ptr CChar -> CInt -> CInt -> Ptr () -> IO CInt
dummyWriteFunction _ width num _ = return $ width * num
dummyWriteFunction _ width num _ = return $ width * num