runswiftlang.org command-line utility for compiling swift online

swift-compile.hs

{-# LANGUAGE OverloadedStrings #-}

import Network.HTTP.Conduit
import qualified Data.ByteString.Lazy as L
import qualified Data.ByteString as BS
import System.IO
import Data.Aeson

data CompilerStatus = CompilerStatus
     {
	success :: Bool
	code :: Text
	output :: Text
     } deriving Show

instance fromJSON CompilerStatus where
	 parseJSON (Object v) = CompilerStatus <$> v .: "success" <*> v .: "code" <*> v .: "output"
	 parseJSON _	   = mzero

main = do
  _stdin <- BS.getContents
  initReq <- parseUrl "http://www.runswiftlang.com/api/v1/swift/run"
  let req = (flip urlEncodedBody) initReq $
             [ ("api_key", "71910F1F-B1B1-4B0B-9B68-CD83910135A1"),
	       ("task[code]", _stdin)
	     ]

  response <- withManager $ httpLbs req
  cs <- (decode . responseBody response) :: Maybe CompilerStatus

  putStrLn cs