diff options
| author | Alan Zimmerman <alan.zimm@gmail.com> | 2022-10-20 20:00:49 +0100 |
|---|---|---|
| committer | Alan Zimmerman <alan.zimm@gmail.com> | 2022-10-20 23:26:40 +0100 |
| commit | 5951a3173144636c646d8987b9e2e6baa60c3842 (patch) | |
| tree | ba6d5ee9008e01fbe3d29a629a496138cbee6a1a /compiler/GHC/Iface/Syntax.hs | |
| parent | b17cfc9c4b341e122294c0701803fc8f521fa210 (diff) | |
| download | haskell-wip/az/bufspan-in-anchor.tar.gz | |
Diffstat (limited to 'compiler/GHC/Iface/Syntax.hs')
| -rw-r--r-- | compiler/GHC/Iface/Syntax.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/GHC/Iface/Syntax.hs b/compiler/GHC/Iface/Syntax.hs index 299dfe553b..5fad9e1737 100644 --- a/compiler/GHC/Iface/Syntax.hs +++ b/compiler/GHC/Iface/Syntax.hs @@ -44,6 +44,7 @@ module GHC.Iface.Syntax ( import GHC.Prelude +import qualified GHC.Data.Strict as Strict import GHC.Builtin.Names ( unrestrictedFunTyConKey, liftedTypeKindTyConKey ) import GHC.Types.Unique ( hasKey ) import GHC.Iface.Type @@ -2464,7 +2465,7 @@ instance Binary IfaceTickish where let start = mkRealSrcLoc file sl sc end = mkRealSrcLoc file el ec name <- get bh - return (IfaceSource (mkRealSrcSpan start end) name) + return (IfaceSource (mkRealSrcSpan start end Strict.Nothing) name) _ -> panic ("get IfaceTickish " ++ show h) instance Binary IfaceConAlt where |