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