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

module IrcBot.RemoteUploader where


import System.Process


uploadLocalFile :: String -> IO String

uploadLocalFile filePath =
                        do
                        if filePath /= "" then do
                            let command = "curl"
                            let params = "file=@"++ filePath
                            readProcess command ["-F",params,"0x0.st"] ""
                        else return $ ";_;"