diff options
author | Matthew Pickering <matthewtpickering@gmail.com> | 2022-12-07 11:05:41 +0000 |
---|---|---|
committer | Matthew Pickering <matthewtpickering@gmail.com> | 2023-01-04 11:58:42 +0000 |
commit | 3dc05726dca7e38ca8de8e1175c8f1489b96653e (patch) | |
tree | 55eb73204d0c770b80aab58512aaae023a1b7762 | |
parent | fec6638e2468c78f136f2363d8b3239a9bfd4f91 (diff) | |
download | haskell-3dc05726dca7e38ca8de8e1175c8f1489b96653e.tar.gz |
check-exact: Fix build with -Werror
-rw-r--r-- | utils/check-exact/ExactPrint.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/utils/check-exact/ExactPrint.hs b/utils/check-exact/ExactPrint.hs index 57389565b4..c3d10b1f56 100644 --- a/utils/check-exact/ExactPrint.hs +++ b/utils/check-exact/ExactPrint.hs @@ -15,6 +15,7 @@ {-# LANGUAGE TypeOperators #-} {-# LANGUAGE BlockArguments #-} {-# LANGUAGE UndecidableInstances #-} -- For the (StmtLR GhcPs GhcPs (LocatedA (body GhcPs))) ExactPrint instance +{-# OPTIONS_GHC -Wno-incomplete-uni-patterns #-} module ExactPrint ( @@ -2938,7 +2939,7 @@ instance ExactPrint (HsExpr GhcPs) where exact (HsUntypedBracket an (DecBrL a e)) = do an0 <- markEpAnnLMS an lidl AnnOpen (Just "[d|") - an1 <- markEpAnnL an lidl AnnOpenC + an1 <- markEpAnnL an0 lidl AnnOpenC e' <- markAnnotated e an2 <- markEpAnnL an1 lidl AnnCloseC an3 <- markEpAnnL an2 lidl AnnCloseQ -- "|]" |