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/FillSig.hs
+++ b/Language/Haskell/GhcMod/FillSig.hs
@@ -481,7 +481,11 @@ getPatsForVariable tcs (lineNo, colNo) =
 #else
                    :: [G.LMatch Id]
 #endif
+#if __GLASGOW_HASKELL__ >= 710
              (L _ (G.Match _ pats _ _):_) = m
+#else
+              (L _ (G.Match pats _ _):_) = m
+#endif
           in (funId, pats)
        _ -> (error "This should never happen", [])