From 7b2ff4b576b51c53d7c25347dae2a1fee7d795d1 Mon Sep 17 00:00:00 2001 From: Thomas Honeyman Date: Sun, 11 Apr 2021 11:15:22 -0700 Subject: [PATCH] Use string body instead of Json --- client/src/Try/API.purs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) 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