We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent e7f5327 commit c4afe64Copy full SHA for c4afe64
src/Codec/CBOR/Cuddle/Huddle.hs
@@ -1228,7 +1228,7 @@ toCDDL' mkPseudoRoot hdl =
1228
toGenericCall' (Named n gr _) =
1229
C.T2Name
1230
(C.Name n)
1231
- (Just . C.GenericArg $ NE.singleton (toCDDLType1 (callArg gr)))
+ (Just . C.GenericArg $ (toCDDLType1 (callArg gr)) NE.:| [])
1232
1233
toGenRuleDef :: GRuleDef -> C.WithComments C.Rule
1234
toGenRuleDef (Named n gr c) =
@@ -1254,4 +1254,4 @@ toCDDL' mkPseudoRoot hdl =
1254
(C.comment <$> c)
1255
where
1256
gps =
1257
- C.GenericParam $ fmap (\(GRef t) -> C.Name t) (NE.singleton $ arg g)
+ C.GenericParam $ fmap (\(GRef t) -> C.Name t) (arg g NE.:| [])
0 commit comments