Heimdell · February 24, 2016 14:33
diff --git a/Uploader.hs b/Uploader.hs

 {-# LANGUAGE OverloadedStrings #-}

 import Network.Wreq (post, partFile, responseBody)

 import Control.Lens ((^.))

 import Data.ByteString.Lazy.Char8 as BS

 main = do
    response    <- post "http://www.tipjar.com/cgi-bin/test" [partFile "test-part" "Uploader.hs"]
    BS.putStrLn (response^.responseBody)

	{-# LANGUAGE OverloadedStrings #-}

	import Network.Wreq (post, partFile, responseBody)

	import Control.Lens ((^.))

	import Data.ByteString.Lazy.Char8 as BS

	main = do
	response <- post "http://www.tipjar.com/cgi-bin/test" [partFile "test-part" "Uploader.hs"]
	BS.putStrLn (response^.responseBody)