diff --git a/client/src/Try/API.purs b/client/src/Try/API.purs index 9a40c475..5c2e2145 100644 --- a/client/src/Try/API.purs +++ b/client/src/Try/API.purs @@ -21,7 +21,6 @@ import Affjax.StatusCode (StatusCode(..)) import Control.Alt ((<|>)) import Control.Monad.Except (ExceptT(..)) import Data.Argonaut.Decode (class DecodeJson, decodeJson, (.:)) -import Data.Argonaut.Encode (encodeJson) import Data.Either (Either(..)) import Data.Maybe (Maybe(..)) import Data.Traversable (traverse) @@ -107,4 +106,4 @@ compile endpoint code = ExceptT $ AX.post AXRF.json (endpoint <> "/compile") req Right { body } -> pure $ Right $ decodeJson body where - requestBody = Just $ AXRB.Json $ encodeJson code + requestBody = Just $ AXRB.string code