diff options
Diffstat (limited to 'compiler/GHC/Tc/Errors.hs')
| -rw-r--r-- | compiler/GHC/Tc/Errors.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/GHC/Tc/Errors.hs b/compiler/GHC/Tc/Errors.hs index 021d163d84..6fbd422422 100644 --- a/compiler/GHC/Tc/Errors.hs +++ b/compiler/GHC/Tc/Errors.hs @@ -76,7 +76,6 @@ import GHC.Utils.FV ( fvVarList, unionFV ) import GHC.Data.Bag import GHC.Data.List.SetOps ( equivClasses, nubOrdBy ) import GHC.Data.Maybe -import qualified GHC.Data.Strict as Strict import Control.Monad ( unless, when, foldM, forM_ ) import Data.Foldable ( toList ) @@ -1177,7 +1176,7 @@ mkErrorReport tcl_env msg mb_ctxt supplementary (vcat $ map (pprSolverReportSupplementary hfdc) supplementary) ; let detailed_msg = mkDetailedMessage err_info msg ; mkTcRnMessage - (RealSrcSpan (tcl_loc tcl_env) Strict.Nothing) + (RealSrcSpan (tcl_loc tcl_env)) (TcRnMessageWithInfo unit_state $ detailed_msg) } |