Merge pull request #1777 from digitallyinduced/s0kil/fix-issue-1776

SSC do not encode nullary constructors to string
digitallyinduced · Jul 27, 2023 · 05f52bb · 05f52bb
2 parents 217c1aa + df56843
commit 05f52bb
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/IHP/ServerSideComponent/Controller/ComponentsController.hs b/IHP/ServerSideComponent/Controller/ComponentsController.hs
@@ -6,6 +6,7 @@ import IHP.ServerSideComponent.Types as SSC
 import IHP.ServerSideComponent.ControllerFunctions as SSC
 
 import qualified Data.Aeson as Aeson
+import qualified IHP.Log as Log
 
 instance (Component component controller, FromJSON controller) => WSApp (ComponentsController component) where
     initialState = ComponentsController
@@ -29,4 +30,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
+                    Log.error ("Failed Parsing Server Side Component Message As JSON" :: Text)
+                    Log.error actionPayload
+                    Log.error 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" }}