Add range generation for a wider range of types.

Author: nc6

cuddle.cabal

@@ -1,6 +1,6 @@
 cabal-version:   3.4
 name:            cuddle
-version:         0.1.3.0
+version:         0.1.6.0
 synopsis:        CDDL Generator and test utilities
 
 -- description:

src/Codec/CBOR/Cuddle/CBOR/Gen.hs

@@ -262,11 +262,13 @@ genForCTree (CTree.Range from to _bounds) = do
   term1 <- genForNode from
   term2 <- genForNode to
   case (term1, term2) of
+    (S (TInt a), S (TInt b)) -> genUniformRM (a, b) <&> S . TInt
+    (S (TInt a), S (TInteger b)) -> genUniformRM (fromIntegral a, b) <&> S . TInteger
     (S (TInteger a), S (TInteger b)) -> genUniformRM (a, b) <&> S . TInteger
     (S (THalf a), S (THalf b)) -> genUniformRM (a, b) <&> S . THalf
     (S (TFloat a), S (TFloat b)) -> genUniformRM (a, b) <&> S . TFloat
     (S (TDouble a), S (TDouble b)) -> genUniformRM (a, b) <&> S . TDouble
-    _ -> error "Cannot apply range operator to non-numeric types"
+    x -> error $ "Cannot apply range operator to non-numeric types: " <> show x
 genForCTree (CTree.Control op target controller) = do
   tt <- resolveIfRef target
   ct <- resolveIfRef controller