We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent c8f9862 commit 94869d5Copy full SHA for 94869d5
src/Constrained/AbstractSyntax.hs
@@ -134,6 +134,7 @@ fastInequality _ _ = True
134
class Syntax (t :: [Type] -> Type -> Type) where
135
isInfix :: t dom rng -> Bool
136
isInfix _ = False
137
+
138
prettySymbol ::
139
forall deps dom rng ann.
140
t dom rng ->
src/Constrained/Base.hs
@@ -671,8 +671,6 @@ instance Show (BaseW d r) where
671
show FromGenericW = "fromSimpleRep"
672
673
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)
676
677
instance Semantics BaseW where
678
semantics FromGenericW = fromSimpleRep
0 commit comments