From ebd4b2e2b19c3a3cc22ab8744a27be19e22deec1 Mon Sep 17 00:00:00 2001
From: Francesco Gazzetta <fgaz@fgaz.me>
Date: Fri, 1 Jul 2022 22:13:59 +0200
Subject: [PATCH] Remove Binary Ident instance

Not that useful and we avoid a direct dep
---
 qbe.cabal           | 1 -
 src/Language/QBE.hs | 3 +--
 2 files changed, 1 insertion(+), 3 deletions(-)

diff --git a/qbe.cabal b/qbe.cabal
index d8eb7f3..4d9198b 100644
--- a/qbe.cabal
+++ b/qbe.cabal
@@ -51,7 +51,6 @@ library
                     , bytestring
                     , hashable
                     , deepseq
-                    , binary
                     , prettyprinter
     hs-source-dirs:   src
 
diff --git a/src/Language/QBE.hs b/src/Language/QBE.hs
index c709af0..b235f49 100644
--- a/src/Language/QBE.hs
+++ b/src/Language/QBE.hs
@@ -17,7 +17,6 @@ import Prettyprinter
 -- Instances
 import Data.Hashable (Hashable)
 import Control.DeepSeq (NFData)
-import Data.Binary (Binary)
 import Data.String (IsString)
 
 -- * Identifiers
@@ -49,7 +48,7 @@ data Sigil
 --       In the second argument of ‘($)’, namely ‘Jmp $ Ident @'Global "a"’
 --       In the expression: pretty $ Jmp $ Ident @'Global "a"
 newtype Ident (t :: Sigil) = Ident RawIdent
-  deriving (Show, Eq, Ord, IsString, Binary, NFData, Hashable)
+  deriving (Show, Eq, Ord, IsString, NFData, Hashable)
 
 instance Pretty (Ident 'AggregateTy) where
   pretty (Ident raw) = pretty ':' <> pretty (TS.toText raw)