Skip to content

Commit 94869d5

Browse files
remove bad prettySymbol code
1 parent c8f9862 commit 94869d5

File tree

2 files changed

+1
-2
lines changed

2 files changed

+1
-2
lines changed

src/Constrained/AbstractSyntax.hs

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -134,6 +134,7 @@ fastInequality _ _ = True
134134
class Syntax (t :: [Type] -> Type -> Type) where
135135
isInfix :: t dom rng -> Bool
136136
isInfix _ = False
137+
137138
prettySymbol ::
138139
forall deps dom rng ann.
139140
t dom rng ->

src/Constrained/Base.hs

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -671,8 +671,6 @@ instance Show (BaseW d r) where
671671
show FromGenericW = "fromSimpleRep"
672672

673673
instance Syntax BaseW where
674-
prettySymbol ToGenericW (x :> Nil) p = Just $ "to" <+> pretty (WithPrec p x)
675-
prettySymbol FromGenericW (x :> Nil) p = Just $ "from" <+> pretty (WithPrec p x)
676674

677675
instance Semantics BaseW where
678676
semantics FromGenericW = fromSimpleRep

0 commit comments

Comments
 (0)