diff options
Diffstat (limited to 'compiler/utils/OutputableAnnotation.hs')
| -rw-r--r-- | compiler/utils/OutputableAnnotation.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/compiler/utils/OutputableAnnotation.hs b/compiler/utils/OutputableAnnotation.hs index 12a7bba9e6..fe6a39e1fa 100644 --- a/compiler/utils/OutputableAnnotation.hs +++ b/compiler/utils/OutputableAnnotation.hs @@ -6,16 +6,16 @@ import Outputable ( OutputableBndr(..)) import Name (NamedThing) data PExpr where - PCoreExpr :: (OutputableBndr a, NamedThing a) => Expr a -> PExpr - PBind :: (OutputableBndr a, NamedThing a) => Bind a -> PExpr - PVar :: (OutputableBndr a, NamedThing a) => BindType -> a -> PExpr + PCoreExpr :: NamedThing a => Expr a -> PExpr + PBind :: NamedThing a => Bind a -> PExpr + PVar :: NamedThing a => BindType -> a -> PExpr data BindType = Binder | Reference -varBinder :: (OutputableBndr a, NamedThing a) => a -> PExpr +varBinder :: NamedThing a => a -> PExpr varBinder a = PVar Binder a -varReference :: (OutputableBndr a, NamedThing a) => a -> PExpr +varReference :: NamedThing a => a -> PExpr varReference a = PVar Reference a |