Skip to content

Commit c4afe64

Browse files
nc6Soupstraw
authored andcommitted
Fix compilation in GHC 8.10.7
NE.singleton doesn't exist until a later version of base.
1 parent e7f5327 commit c4afe64

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

src/Codec/CBOR/Cuddle/Huddle.hs

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1228,7 +1228,7 @@ toCDDL' mkPseudoRoot hdl =
12281228
toGenericCall' (Named n gr _) =
12291229
C.T2Name
12301230
(C.Name n)
1231-
(Just . C.GenericArg $ NE.singleton (toCDDLType1 (callArg gr)))
1231+
(Just . C.GenericArg $ (toCDDLType1 (callArg gr)) NE.:| [])
12321232

12331233
toGenRuleDef :: GRuleDef -> C.WithComments C.Rule
12341234
toGenRuleDef (Named n gr c) =
@@ -1254,4 +1254,4 @@ toCDDL' mkPseudoRoot hdl =
12541254
(C.comment <$> c)
12551255
where
12561256
gps =
1257-
C.GenericParam $ fmap (\(GRef t) -> C.Name t) (NE.singleton $ arg g)
1257+
C.GenericParam $ fmap (\(GRef t) -> C.Name t) (arg g NE.:| [])

0 commit comments

Comments
 (0)