Fix decimal rounding. Improve blockly FFI structure

changelog.d/20230529_110109_tomasz.rybarczyk_PLT_5468.md

@@ -0,0 +1,42 @@
+<!--
+A new scriv changelog fragment.
+
+Uncomment the section that is right (remove the HTML comment wrapper).
+-->
+
+<!--
+### Removed
+
+- A bullet item for the Removed category.
+
+-->
+<!--
+### Added
+
+- A bullet item for the Added category.
+
+-->
+<!--
+### Changed
+
+- A bullet item for the Changed category.
+
+-->
+<!--
+### Deprecated
+
+- A bullet item for the Deprecated category.
+
+-->
+### Fixed
+
+- currency/decimal fields behavior
+
+- FFI structure of blockly related modules
+
+<!--
+### Security
+
+- A bullet item for the Security category.
+
+-->

marlowe-playground-client/src/Blockly/DateTimeField.js

@@ -210,7 +210,9 @@ export const registerDateTimeFieldImpl = (function () {
       }
     };
 
-    Blockly.fieldRegistry.register("field_datetime", FieldDateTime);
+    try {
+      Blockly.fieldRegistry.register("field_datetime", FieldDateTime);
+    } catch {}
 
     return FieldDateTime;
   };

marlowe-playground-client/src/Blockly/DateTimeField.purs

@@ -1,13 +1,13 @@
 module Blockly.DateTimeField where
 
-import Prelude
-
 import Blockly.Types (Blockly)
 import Effect (Effect)
 import Effect.Uncurried (EffectFn1, runEffectFn1)
 
-foreign import registerDateTimeFieldImpl :: EffectFn1 Blockly Unit
+foreign import data FieldDateTime :: Type
+
+foreign import registerDateTimeFieldImpl :: EffectFn1 Blockly FieldDateTime
 
-registerDateTimeField :: Blockly -> Effect Unit
+registerDateTimeField :: Blockly -> Effect FieldDateTime
 registerDateTimeField = runEffectFn1 registerDateTimeFieldImpl