SSC do not encode nullary constructors to strings with the constructo…

…r tag
digitallyinduced · Jul 27, 2023 · 5e3b561 · 5e3b561
1 parent 217c1aa
commit 5e3b561
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/IHP/ServerSideComponent/Controller/ComponentsController.hs b/IHP/ServerSideComponent/Controller/ComponentsController.hs
@@ -29,4 +29,7 @@ instance (Component component controller, FromJSON controller) => WSApp (Compone
 
                     nextState <- SSC.action currentState theAction
                     SSC.setState nextState
-                Left error -> putStrLn (cs error)
+                Left error -> do
+                    putStrLn "Failed Parsing Server Side Component Message As JSON"
+                    putStrLn (cs actionPayload)
+                    putStrLn (cs error)
diff --git a/IHP/ServerSideComponent/ControllerFunctions.hs b/IHP/ServerSideComponent/ControllerFunctions.hs
@@ -45,4 +45,4 @@ setState state = do
 getState :: _ => _
 getState = (.state) <$> readIORef ?instanceRef
 
-deriveSSC = Aeson.deriveJSON Aeson.defaultOptions { sumEncoding = defaultTaggedObject { tagFieldName = "action", contentsFieldName = "payload" }}
+deriveSSC = Aeson.deriveJSON Aeson.defaultOptions { allNullaryToStringTag = False, sumEncoding = defaultTaggedObject { tagFieldName = "action", contentsFieldName = "payload" }}