diff --git a/test/Hikaru/Demo.hs b/test/Hikaru/Demo.hs
index 84a14a173542b2aca0f898c6eff9791bb57599a6..eb895bc92822c147413bce305d52c447817d2267 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 ()