From dc023cee45d7b42028851830f9310b9cbe72fbed Mon Sep 17 00:00:00 2001
From: alexwl <alexey.a.kiryushin@gmail.com>
Date: Sun, 29 Sep 2019 13:45:37 +0300
Subject: Make it compile with GHC-8.8.1 (Stackage nightly-2019-09-28)

---
 src/HaskellCodeExplorer/AST/RenamedSource.hs | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

(limited to 'src/HaskellCodeExplorer/AST/RenamedSource.hs')

diff --git a/src/HaskellCodeExplorer/AST/RenamedSource.hs b/src/HaskellCodeExplorer/AST/RenamedSource.hs
index 1f42874..44e0190 100644
--- a/src/HaskellCodeExplorer/AST/RenamedSource.hs
+++ b/src/HaskellCodeExplorer/AST/RenamedSource.hs
@@ -2,6 +2,7 @@
 {-# LANGUAGE TypeFamilies #-}
 {-# LANGUAGE RecordWildCards #-}
 {-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE ViewPatterns #-}
 {-# LANGUAGE StrictData #-}
 
 module HaskellCodeExplorer.AST.RenamedSource
@@ -80,7 +81,7 @@ import GHC
 #if MIN_VERSION_GLASGOW_HASKELL(8,4,3,0)
 import HsExtension (GhcRn)
 #endif
-import HaskellCodeExplorer.GhcUtils (hsPatSynDetails, ieLocNames)
+import HaskellCodeExplorer.GhcUtils (hsPatSynDetails, ieLocNames, ghcDL)
 import Prelude hiding (span)
 import TysWiredIn
   ( nilDataConName
@@ -367,7 +368,7 @@ patNames :: LPat GhcRn -> [NameOccurrence]
 patNames :: LPat Name -> [NameOccurrence]
 #endif
 #if MIN_VERSION_GLASGOW_HASKELL(8,6,1,0)
-patNames (L _span (VarPat _ name)) =
+patNames (ghcDL -> (L _span (VarPat _ name))) =
 #else
 patNames (L _span (VarPat name)) =
 #endif
@@ -377,7 +378,7 @@ patNames (L _span (VarPat name)) =
     , isBinder = True
     }
   ]
-patNames (L _span (ConPatIn name _)) =
+patNames (ghcDL -> (L _span (ConPatIn name _))) =
   [ NameOccurrence
     { locatedName = Just <$> name
     , description = "ConPatIn"
@@ -385,7 +386,7 @@ patNames (L _span (ConPatIn name _)) =
     }
   ]
 #if MIN_VERSION_GLASGOW_HASKELL(8,6,1,0)
-patNames (L _span (AsPat _ name _)) =
+patNames (ghcDL -> (L _span (AsPat _ name _))) =
 #else
 patNames (L _span (AsPat name _)) =
 #endif
@@ -396,7 +397,7 @@ patNames (L _span (AsPat name _)) =
     }
   ]
 #if MIN_VERSION_GLASGOW_HASKELL(8,6,1,0)
-patNames (L _span (NPlusKPat _ name _ _ _ _)) =
+patNames (ghcDL -> (L _span (NPlusKPat _ name _ _ _ _))) =
 #else
 patNames (L _span (NPlusKPat name _ _ _ _ _)) =
 #endif
-- 
cgit v1.2.3