Update API

Author: paf31

Main.hs

@@ -31,6 +31,9 @@ import qualified Data.ByteString as B
 import qualified Data.ByteString.Char8 as BC8
 import qualified Data.ByteString.Lazy.Char8 as BLC8
 
+import qualified Data.Aeson as A
+import Data.Aeson ((.=))
+
 import qualified Data.Map as M
 
 import Control.Applicative
@@ -165,10 +168,9 @@ server port = do
       response <- lift $ compile preludeModules code
       case runResponse response of
         Left err -> do
-          status status500
-          Scotty.text . fromString $ err
+          Scotty.json $ A.object [ "error" .= err ]
         Right comp -> 
-          Scotty.text . fromString $ js comp
+          Scotty.json $ A.object [ "js" .= js comp ]
 
 main :: IO ()
 main = do

README.md

@@ -7,9 +7,10 @@ Very basic browser-based interface to the PureScript compiler.
 
 ### Compile PureScript code
 
-- Method: `POST`
-- Endpoint: `/compile/text`
+**POST /compile/text**
+
 - Request body: PureScript code
-- Response body: Compiled Javascript code or error string
-- Status code: 200 (success) or 500 (error)
+- Response body: Either `{ js: "..." }` or `{ error: "..." }`
+- Status code: 200 (success)
 
+The response does not use error codes, to make it easier to use the API from another domain using CORS.

trypurescript.cabal

@@ -13,7 +13,7 @@ author: Phil Freeman
 data-dir: ""
 
 executable trypurescript
-    build-depends: blaze-markup >=0.5.1.5 && <0.6,
+    build-depends: blaze-markup >=0.5.1.5 && <0.6, aeson -any,
                    bytestring >=0.10.0.2 && <0.11, base ==4.*, scotty -any,
                    purescript ==0.6.9.3, containers -any, mtl -any, blaze-html -any,
                    optparse-applicative -any, http-types >= 0.8.5, file-embed >=0.0.6