h-irc-bot/src/IrcBot/RemoteUploader.hs

module IrcBot.RemoteUploader where


import System.Process


uploadLocalFile:: String -> IO String

uploadLocalFile filePath =
                        do
                        let command = "curl"
                        let params = "file=@"++ filePath
                        readProcess command ["-F",params,"0x0.st"] ""