Commit 144096e1 authored by Edward Z. Yang's avatar Edward Z. Yang

Give more informative panic for checkFamInstConsistency.

Signed-off-by: default avatarEdward Z. Yang <ezyang@cs.stanford.edu>
parent adea8279
......@@ -32,6 +32,7 @@ import Maybes
import TcMType
import TcType
import Name
import Panic
import Control.Monad
import Data.Map (Map)
import qualified Data.Map as Map
......@@ -134,7 +135,8 @@ checkFamInstConsistency famInstMods directlyImpMods
-- all directly imported modules must already have been loaded.
modIface mod =
case lookupIfaceByModule dflags hpt (eps_PIT eps) mod of
Nothing -> panic "FamInst.checkFamInstConsistency"
Nothing -> panicDoc "FamInst.checkFamInstConsistency"
(ppr mod $$ pprHPT hpt)
Just iface -> iface
; hmiModule = mi_module . hm_iface
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment