From 22565506515313c928d13a43b2946e0106110353 Mon Sep 17 00:00:00 2001
From: sheaf <sam.derbyshire@gmail.com>
Date: Fri, 16 Jun 2023 14:09:53 +0200
Subject: [PATCH] base: add COMPLETE pragma to BufferCodec PatSyn
This implements CLC proposal #178, rectifying an oversight in the
implementation of CLC proposal #134 which could lead to spurious
pattern match warnings.
https://github.com/haskell/core-libraries-committee/issues/178
https://github.com/haskell/core-libraries-committee/issues/134
---
libraries/base/GHC/IO/Encoding/Types.hs | 1 +
1 file changed, 1 insertion(+)
diff --git a/libraries/base/GHC/IO/Encoding/Types.hs b/libraries/base/GHC/IO/Encoding/Types.hs
index d75bce31d032..3dc7cd481e8e 100644
--- a/libraries/base/GHC/IO/Encoding/Types.hs
+++ b/libraries/base/GHC/IO/Encoding/Types.hs
@@ -145,6 +145,7 @@ data CodingProgress = InputUnderflow -- ^ Stopped because the input contains in
, Show -- ^ @since 4.4.0.0
)
+{-# COMPLETE BufferCodec #-}
pattern BufferCodec :: CodeBuffer from to
-> (Buffer from -> Buffer to -> IO (Buffer from, Buffer to))
-> IO ()
--
GitLab