getRaw :: Keys -> PostData -> GetData -> String -> IO (C.ByteString)
getRaw k p g resource = do
    resp <- simpleHTTP $ makeRequest k p g resource
    str <- getResponseBody resp
    return $ C.pack str
getRaw :: Keys -> PostData -> GetData -> String -> IO (C.ByteString)
getRaw k p g resource = do
    resp <- simpleHTTP $ makeRequest k p g resource
    str <- getResponseBody resp
    return $ C.pack str
getRaw k p g resource = do
    resp <- simpleHTTP $ makeRequest k p g resource
    str <- getResponseBody resp
    return $ C.pack str