msyds/qbe-hs
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Remove Binary Ident instance

Browse Source 
Not that useful and we avoid a direct dep
This commit is contained in:
Francesco Gazzetta
2022-07-01 22:13:59 +02:00
parent 7b848c8e33
commit ebd4b2e2b1
2 changed files with 1 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
qbe.cabal
View File

@@ -51,7 +51,6 @@ library
, bytestring , bytestring
, hashable , hashable
, deepseq , deepseq
, binary
, prettyprinter , prettyprinter
hs-source-dirs: src hs-source-dirs: src

3
src/Language/QBE.hs
View File

@@ -17,7 +17,6 @@ import Prettyprinter
-- Instances -- Instances
import Data.Hashable (Hashable) import Data.Hashable (Hashable)
import Control.DeepSeq (NFData) import Control.DeepSeq (NFData)
import Data.Binary (Binary)
import Data.String (IsString) import Data.String (IsString)
-- * Identifiers -- * Identifiers
@@ -49,7 +48,7 @@ data Sigil
-- In the second argument of ‘($)’, namely ‘Jmp $ Ident @'Global "a"’ -- In the second argument of ‘($)’, namely ‘Jmp $ Ident @'Global "a"’
-- In the expression: pretty $ Jmp $ Ident @'Global "a" -- In the expression: pretty $ Jmp $ Ident @'Global "a"
newtype Ident (t :: Sigil) = Ident RawIdent 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 instance Pretty (Ident 'AggregateTy) where
pretty (Ident raw) = pretty ':' <> pretty (TS.toText raw) pretty (Ident raw) = pretty ':' <> pretty (TS.toText raw)