Skip to content

Commit c749c01

Browse files
committed
Fix collection of generic params.
1 parent c98bc96 commit c749c01

File tree

2 files changed

+4
-2
lines changed

2 files changed

+4
-2
lines changed

cuddle.cabal

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
cabal-version: 3.4
22
name: cuddle
3-
version: 0.1.2.0
3+
version: 0.1.3.0
44
synopsis: CDDL Generator and test utilities
55

66
-- description:

src/Codec/CBOR/Cuddle/Huddle.hs

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -814,7 +814,9 @@ collectFrom topR =
814814
when (HaskMap.notMember n gRules) $ do
815815
modify (over _3 $ HaskMap.insert n (fmap callToDef r))
816816
goT0 (body g)
817-
mapM_ goT2 $ args g
817+
-- Note that the parameters here may be different, so this doesn't live
818+
-- under the guard
819+
mapM_ goT2 $ args g
818820
goT2 _ = pure ()
819821
goArrayEntry (ArrayEntry (Just k) t0 _) = goKey k >> goT0 t0
820822
goArrayEntry (ArrayEntry Nothing t0 _) = goT0 t0

0 commit comments

Comments
 (0)