blob: fa3299c5d3f1e2976b2613d3459936c57661f276 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
-- This boot file is in place to break the loop where:
-- + GHC.Tc.Solver calls 'GHC.Tc.Errors.reportUnsolved',
-- + which calls 'GHC.Tc.Errors.Hole.findValidHoleFits`
-- + which calls 'GHC.Tc.Solver.simpl_top'
module GHC.Tc.Errors.Hole where
import GHC.Tc.Types ( TcM )
import GHC.Tc.Types.Constraint ( Ct, Implication )
import GHC.Utils.Outputable ( SDoc )
import GHC.Types.Var.Env ( TidyEnv )
findValidHoleFits :: TidyEnv -> [Implication] -> [Ct] -> Ct
-> TcM (TidyEnv, SDoc)
|
