integer atom explicit sign cast support

2026-09-04 08:45:29 +02:00 · 2020-06-06 21:26:14 -04:00
parent a8346f2f88
commit eb93ba67fc
5 changed files with 32 additions and 5 deletions
@@ -162,4 +162,9 @@ typeSigning :: Type -> Maybe Signing
 typeSigning (Net           _ sg _) = Just sg
 typeSigning (Implicit        sg _) = Just sg
 typeSigning (IntegerVector _ sg _) = Just sg
+typeSigning (IntegerAtom   t sg  ) =
+    Just $ case (sg, t) of
+        (Unspecified, TTime) -> Unsigned
+        (Unspecified, _    ) -> Signed
+        (_          , _    ) -> sg
 typeSigning _ = Nothing