|
1 |
| -{-# LANGUAGE StandaloneDeriving, FlexibleInstances, MultiParamTypeClasses, CPP, TupleSections, BangPatterns, LambdaCase, NamedFieldPuns, ScopedTypeVariables #-} |
2 |
| -{-# LANGUAGE TypeFamilies #-} |
3 |
| -{-# LANGUAGE ViewPatterns #-} |
| 1 | +{-# LANGUAGE BangPatterns #-} |
| 2 | +{-# LANGUAGE CPP #-} |
4 | 3 | {-# LANGUAGE DerivingStrategies #-}
|
| 4 | +{-# LANGUAGE FlexibleInstances #-} |
5 | 5 | {-# LANGUAGE GeneralizedNewtypeDeriving #-}
|
| 6 | +{-# LANGUAGE LambdaCase #-} |
| 7 | +{-# LANGUAGE MultiParamTypeClasses #-} |
| 8 | +{-# LANGUAGE NamedFieldPuns #-} |
| 9 | +{-# LANGUAGE ScopedTypeVariables #-} |
| 10 | +{-# LANGUAGE StandaloneDeriving #-} |
| 11 | +{-# LANGUAGE TupleSections #-} |
| 12 | +{-# LANGUAGE TypeFamilies #-} |
| 13 | +{-# LANGUAGE ViewPatterns #-} |
6 | 14 | {-# OPTIONS_GHC -Wwarn #-}
|
7 | 15 | -----------------------------------------------------------------------------
|
8 | 16 | -- |
|
@@ -41,36 +49,26 @@ import Data.Maybe
|
41 | 49 | import Data.Traversable
|
42 | 50 | import GHC.Stack (HasCallStack)
|
43 | 51 |
|
44 |
| -import GHC.Tc.Utils.Monad (finalSafeMode) |
45 |
| -import GHC.Types.Avail hiding (avail) |
46 |
| -import qualified GHC.Types.Avail as Avail |
47 |
| -import qualified GHC.Unit.Module as Module |
48 |
| --- <<<<<<< HEAD |
49 |
| -import qualified GHC.Types.SrcLoc as SrcLoc |
50 |
| -import GHC.Core.Class ( ClassMinimalDef, classMinimalDef ) |
51 |
| -import GHC.Core.ConLike (ConLike(..)) |
52 |
| -import GHC hiding ( lookupName ) |
| 52 | +import GHC hiding (lookupName) |
| 53 | +import GHC.Core.Class (ClassMinimalDef, classMinimalDef) |
| 54 | +import GHC.Core.ConLike (ConLike (..)) |
| 55 | +import GHC.Data.FastString (bytesFS, unpackFS) |
53 | 56 | import GHC.Driver.Types
|
54 |
| --- ======= |
55 |
| --- import GHC.Unit.Module.ModSummary |
56 |
| --- import qualified GHC.Types.SrcLoc as SrcLoc |
57 |
| --- import GHC.Types.SourceFile |
58 |
| --- import GHC.Core.Class |
59 |
| --- import GHC.Core.ConLike (ConLike(..)) |
60 |
| --- import GHC hiding (lookupName) |
61 |
| --- import GHC.Driver.Ppr |
62 |
| --- >>>>>>> 703e5f02... Abstract Monad for interface creation |
| 57 | +import GHC.HsToCore.Docs hiding (mkMaps) |
| 58 | +import GHC.Parser.Annotation (IsUnicodeSyntax (..)) |
| 59 | +import GHC.Tc.Types hiding (IfM) |
| 60 | +import GHC.Tc.Utils.Monad (finalSafeMode) |
| 61 | +import GHC.Types.Avail hiding (avail) |
| 62 | +import qualified GHC.Types.Avail as Avail |
| 63 | +import GHC.Types.Basic (PromotionFlag (..), SourceText (..), StringLiteral (..)) |
63 | 64 | import GHC.Types.Name
|
64 |
| -import GHC.Types.Name.Set |
65 | 65 | import GHC.Types.Name.Env
|
66 |
| -import GHC.Unit.State |
67 | 66 | import GHC.Types.Name.Reader
|
68 |
| -import GHC.Tc.Types hiding (IfM) |
69 |
| -import GHC.Data.FastString ( unpackFS, bytesFS ) |
70 |
| -import GHC.Types.Basic ( StringLiteral(..), SourceText(..), PromotionFlag(..) ) |
71 |
| -import qualified GHC.Utils.Outputable as O |
72 |
| -import GHC.HsToCore.Docs hiding (mkMaps) |
73 |
| -import GHC.Parser.Annotation (IsUnicodeSyntax(..)) |
| 67 | +import GHC.Types.Name.Set |
| 68 | +import qualified GHC.Types.SrcLoc as SrcLoc |
| 69 | +import qualified GHC.Unit.Module as Module |
| 70 | +import GHC.Unit.State |
| 71 | +import qualified GHC.Utils.Outputable as O |
74 | 72 |
|
75 | 73 |
|
76 | 74 | mkExceptionContext :: ModSummary -> String
|
|
0 commit comments