diff options
Diffstat (limited to 'compiler/Language/Haskell/Syntax')
| -rw-r--r-- | compiler/Language/Haskell/Syntax/Basic.hs | 4 | ||||
| -rw-r--r-- | compiler/Language/Haskell/Syntax/Expr.hs | 1 |
2 files changed, 2 insertions, 3 deletions
diff --git a/compiler/Language/Haskell/Syntax/Basic.hs b/compiler/Language/Haskell/Syntax/Basic.hs index 092231b7d1..77ad3fe0e0 100644 --- a/compiler/Language/Haskell/Syntax/Basic.hs +++ b/compiler/Language/Haskell/Syntax/Basic.hs @@ -53,8 +53,8 @@ Field Labels -- | Field labels are just represented as strings; -- they are not necessarily unique (even within a module) -type FieldLabelString = FastString - +newtype FieldLabelString = FieldLabelString { field_label:: FastString } + deriving (Data, Eq) {- ************************************************************************ diff --git a/compiler/Language/Haskell/Syntax/Expr.hs b/compiler/Language/Haskell/Syntax/Expr.hs index 326c9903dc..8dda0c8c81 100644 --- a/compiler/Language/Haskell/Syntax/Expr.hs +++ b/compiler/Language/Haskell/Syntax/Expr.hs @@ -1638,4 +1638,3 @@ isMonadDoCompContext ListComp = False isMonadDoCompContext GhciStmtCtxt = False isMonadDoCompContext (DoExpr _) = False isMonadDoCompContext (MDoExpr _) = False - |