diff options
| author | Zubin Duggal <zubin.duggal@gmail.com> | 2021-09-28 15:30:13 +0530 |
|---|---|---|
| committer | Zubin Duggal <zubin.duggal@gmail.com> | 2021-09-28 15:35:07 +0530 |
| commit | 6a96a238c0673a8dc597e9e63801c7435f472989 (patch) | |
| tree | 35a1576aa05e3b5c8d089d35658efa8c256ad98b /compiler/Language/Haskell/Syntax/Expr.hs | |
| parent | 26f24aeca7784f9f9a2a49bce42eaeb60b94d39f (diff) | |
| download | haskell-wip/20389.tar.gz | |
Use 'NonEmpty' for the fields in an 'HsProjection' (#20389)wip/20389
Diffstat (limited to 'compiler/Language/Haskell/Syntax/Expr.hs')
| -rw-r--r-- | compiler/Language/Haskell/Syntax/Expr.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/compiler/Language/Haskell/Syntax/Expr.hs b/compiler/Language/Haskell/Syntax/Expr.hs index 29769b6e93..0d2b54068a 100644 --- a/compiler/Language/Haskell/Syntax/Expr.hs +++ b/compiler/Language/Haskell/Syntax/Expr.hs @@ -51,6 +51,8 @@ import GHC.Core.Type import Data.Data hiding (Fixity(..)) import qualified Data.Data as Data (Fixity(..)) +import Data.List.NonEmpty ( NonEmpty ) + import GHCi.RemoteTypes ( ForeignRef ) import qualified Language.Haskell.TH as TH (Q) @@ -554,7 +556,7 @@ data HsExpr p -- For details on above see note [exact print annotations] in GHC.Parser.Annotation | HsProjection { proj_ext :: XProjection p - , proj_flds :: [XRec p (DotFieldOcc p)] + , proj_flds :: NonEmpty (XRec p (DotFieldOcc p)) } -- | Expression with an explicit type signature. @e :: type@ |