GHC 7.10.0.20150123 fixes

2015-01-29 09:43:31 +01:00
parent 340ff1e4a7
commit e3812b49ec
2 changed files with 8 additions and 3 deletions
--- a/Language/Haskell/GhcMod/CaseSplit.hs
+++ b/Language/Haskell/GhcMod/CaseSplit.hs
@@ -92,7 +92,7 @@ getSrcSpanTypeForFnSplit modSum lineNo colNo = do
        varT <- Gap.getType tcm varPat'  -- Finally we get the type of the var
        case varT of
          Just varT' ->
-            let (L matchL (G.Match _ _ (G.GRHSs rhsLs _))) = match
+            let (L matchL (G.Match _ _ _ (G.GRHSs rhsLs _))) = match
            in return $ Just (SplitInfo (getPatternVarName varPat') matchL varT' (map G.getLoc rhsLs) )
          _ -> return Nothing