Open locallycompact opened 1 year ago
Looks like it.
I could make it build but I'm not sure if this is a proper fix:
--- src/Language/Haskell/Exts/InternalParser.ly.orig 2020-06-02 02:35:42.000000000 +0000
+++ src/Language/Haskell/Exts/InternalParser.ly
@@ -2216,13 +2216,13 @@ Miscellaneous (mostly renamings)
| 'family' { family_name (nIS $1) }
> qtyvarop_(ostar) :: { QName L }
-> qtyvarop_ : '`' tyvar '`' { UnQual ($1 <^^> $3 <** [$1, srcInfoSpan (ann $2), $3]) $2 }
+> : '`' tyvar '`' { UnQual ($1 <^^> $3 <** [$1, srcInfoSpan (ann $2), $3]) $2 }
> | tyvarsym_(ostar) { UnQual (ann $1) $1 }
> tyvarsym_(ostar) :: { Name L }
-> tyvarsym : VARSYM { let Loc l (VarSym x) = $1 in Symbol (nIS l) x }
+> : VARSYM { let Loc l (VarSym x) = $1 in Symbol (nIS l) x }
> | '-' { Symbol (nIS $1) "-" }
> | ostar { Symbol (nIS $1) "*" }
> impdeclsblock :: { ([ImportDecl L],[S],L) }
> : '{' optsemis impdecls optsemis '}' { let (ids, ss) = $3 in (ids, $1 : reverse $2 ++ ss ++ reverse $4 ++ [$5], $1 <^^> $5) }
Incoming issue with latest version of happy
https://gitlab.horizon-haskell.net/package-sets/horizon-core/-/jobs/204608