From 33b85b7f12798f5762d940ed5c30f775cdd7b751 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 28 Jan 2018 12:13:09 +0100
Subject: WIP

---
 client/src/Util/Ajax.hs | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 client/src/Util/Ajax.hs

(limited to 'client/src/Util/Ajax.hs')

diff --git a/client/src/Util/Ajax.hs b/client/src/Util/Ajax.hs
new file mode 100644
index 0000000..1e8e4c7
--- /dev/null
+++ b/client/src/Util/Ajax.hs
@@ -0,0 +1,20 @@
+module Util.Ajax
+  ( post
+  ) where
+
+import           Data.Aeson (ToJSON)
+import           Data.Text  (Text)
+import           Reflex.Dom (Event, MonadWidget)
+import qualified Reflex.Dom as R
+
+post :: forall t m a. (MonadWidget t m, ToJSON a) => Text -> Event t a -> m (Event t (Either Text Text))
+post url input =
+  fmap getResult <$> R.performRequestAsync xhrRequest
+  where xhrRequest = R.postJson url <$> input
+        getResult response =
+          case R._xhrResponse_responseText response of
+            Just responseText ->
+              if R._xhrResponse_status response == 200
+                then Right responseText
+                else Left responseText
+            _ -> Left "NoKey"
-- 
cgit v1.2.3