From 91c9a68b5fabfa2fe4435a65c2522647f937d9b8 Mon Sep 17 00:00:00 2001
From: Martijn Bastiaan <martijn@qbaylogic.com>
Date: Thu, 8 Feb 2024 11:06:04 +0100
Subject: [PATCH] Remove orphan instances that have been added to clash-prelude

See https://github.com/clash-lang/clash-compiler/commit/7a6a4f4aa3e095658e393b55c0a5bb0a2b4243f6
---
 src/Protocols/Internal.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/Protocols/Internal.hs b/src/Protocols/Internal.hs
index 93d76e49..bb68b996 100644
--- a/src/Protocols/Internal.hs
+++ b/src/Protocols/Internal.hs
@@ -737,8 +737,10 @@ type family KeepType (keep :: Bool) (optionalType :: Type) = t | t -> keep optio
 deriving instance (C.ShowX t) => (C.ShowX (Identity t))
 deriving instance (C.NFDataX t) => (C.NFDataX (Identity t))
 #endif
+#if !MIN_VERSION_clash_prelude(1, 8, 2)
 deriving instance (C.ShowX t) => (C.ShowX (Proxy t))
 deriving instance (C.NFDataX t) => (C.NFDataX (Proxy t))
+#endif
 
 -- | We want to define operations on 'KeepType' that work for both possibilities
 -- (@keep = 'True@ and @keep = 'False@), but we can't pattern match directly.