Commit 5d5b74b9 authored by batterseapower's avatar batterseapower
Browse files

Follow OccName and MkCore changes in Inst

parent 2a8123e1
......@@ -61,7 +61,7 @@ import InstEnv
import FunDeps
import TcMType
import TcType
import DsUtils
import MkCore
import Type
import TypeRep
import Class
......@@ -385,7 +385,7 @@ mkPredName uniq loc pred_ty
-- we use the outermost tycon of the lhs, if there is one, to
-- improve readability of Core code
baseOcc = case splitTyConApp_maybe ty of
Nothing -> mkOccName tcName "$"
Nothing -> mkTcOcc "$"
Just (tc, _) -> getOccName tc
Supports Markdown
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