From 8ef71f72373082a18c1dc335f8a23ad1533a1cec Mon Sep 17 00:00:00 2001
From: konsumlamm <44230978+konsumlamm@users.noreply.github.com>
Date: Fri, 24 Jan 2025 21:10:31 +0100
Subject: [PATCH] Add `COMPLETE` pragma for pattern synonyms

---
 Data/DList/Internal.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/Data/DList/Internal.hs b/Data/DList/Internal.hs
index aea03bc..4c9b38e 100644
--- a/Data/DList/Internal.hs
+++ b/Data/DList/Internal.hs
@@ -190,6 +190,8 @@ pattern Cons :: a -> [a] -> DList a
 #endif
 pattern Cons x xs <- (toList -> x : xs)
 
+{-# COMPLETE Nil, Cons #-}
+
 #endif
 
 {- ORMOLU_DISABLE -}