ifdef for ghc < 7.10

2015-03-28 19:54:10 +01:00
parent 97d17b1173
commit 55216e4af3
2 changed files with 8 additions and 0 deletions
--- a/Language/Haskell/GhcMod/CaseSplit.hs
+++ b/Language/Haskell/GhcMod/CaseSplit.hs
@@ -92,7 +92,11 @@ getSrcSpanTypeForFnSplit modSum lineNo colNo = do
        varT <- Gap.getType tcm varPat'  -- Finally we get the type of the var
        case varT of
          Just varT' ->
+#if __GLASGOW_HASKELL__ >= 710
            let (L matchL (G.Match _ _ _ (G.GRHSs rhsLs _))) = match
+#else
+            let (L matchL (G.Match _ _ (G.GRHSs rhsLs _))) = match
+#endif
            in return $ Just (SplitInfo (getPatternVarName varPat') matchL varT' (map G.getLoc rhsLs) )
          _ -> return Nothing