From 80caa88933840fd3d2d3ce5aeee25b95f6a827ae Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jan=20Hamal=20Dvo=C5=99=C3=A1k?= <mordae@anilinux.org>
Date: Sun, 16 May 2021 23:14:44 +0200
Subject: [PATCH] Repair tests
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Signed-off-by: Jan Hamal Dvořák <mordae@anilinux.org>
---
 test/Hikaru/Demo.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/test/Hikaru/Demo.hs b/test/Hikaru/Demo.hs
index 84a14a1..eb895bc 100644
--- a/test/Hikaru/Demo.hs
+++ b/test/Hikaru/Demo.hs
@@ -15,7 +15,7 @@ where
   import Relude hiding (for_, Option, get)
 
   import Control.Concurrent.MVar (modifyMVar_)
-  import Data.Aeson ()
+  import Data.Aeson (Value)
   import Hikaru
   import Lucid
   import Network.HTTP.Types.Header
@@ -165,7 +165,9 @@ where
 
 
   postEchoR :: Action ()
-  postEchoR = sendJSON =<< getJSON
+  postEchoR = do
+    (json :: Value) <- getJSON
+    sendJSON json
 
 
   getHelloR :: Text -> Action ()
-- 
GitLab