bitcoin :: Double -> String -> IO (Response LC8.ByteString)
bitcoin amount address = Rest.post "/bitcoin_withdrawal/" [(fromString "amount", fromString $ show amount), 
                                                          (fromString "address", fromString address)]
bitcoin :: Double -> String -> IO (Response LC8.ByteString)
bitcoin amount address = Rest.post "/bitcoin_withdrawal/" [(fromString "amount", fromString $ show amount), 
                                                          (fromString "address", fromString address)]
bitcoin amount address = Rest.post "/bitcoin_withdrawal/" [(fromString "amount", fromString $ show amount), 
                                                          (fromString "address", fromString address)]