hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

[Type-constraints] Fix type variable substitution

Browse Source
This commit is contained in:
Nikolay Yakimov 2016-01-20 00:01:41 +03:00
parent 39659b2917
commit fde7bafe56
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Language/Haskell/GhcMod/SrcUtils.hs
View File

@ -70,11 +70,12 @@ collectSpansTypes tcs lc =
build x | Just cti <- x `M.lookup` s build x | Just cti <- x `M.lookup` s
= let = let
(preds', ctt) = getPreds cti (preds', ctt) = getPreds cti
vt = G.varType x vts = listifyStaged TypeChecker G.isTyVar $ G.varType x
in (preds',) . (, vt) <$> G.getTyVar_maybe ctt tvm = listifyStaged TypeChecker G.isTyVarTy ctt
in Just (preds', zip vts tvm)
| otherwise = Nothing | otherwise = Nothing
preds = concatMap fst ctys preds = concatMap fst ctys
subs = G.mkTopTvSubst $ map snd ctys subs = G.mkTopTvSubst $ concatMap snd ctys
ty = G.substTy subs $ G.mkFunTys preds genTyp ty = G.substTy subs $ G.mkFunTys preds genTyp
in [(spn, G.tidyTopType ty)] in [(spn, G.tidyTopType ty)]
getPreds x | G.isForAllTy x = getPreds $ G.dropForAlls x getPreds x | G.isForAllTy x = getPreds $ G.dropForAlls x