Fix incomplete pattern warning in GHC 8.6+

Reviewed By: watashi Differential Revision: D20746466 fbshipit-source-id: 0b73898c57e5beba2de9271797efe0cd3716ba8a
alanz · Mar 30, 2020 · 7113988 · 7113988
1 parent 9c67651
commit 7113988
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/Retrie/PatternMap/Instances.hs b/Retrie/PatternMap/Instances.hs
@@ -1518,6 +1518,7 @@ instance PatternMap ForAllTyMap where
 #if __GLASGOW_HASKELL__ < 806
   mAlter env vs (L _ (KindedTyVar (L _ v) k):rest, ty) f m =
 #else
+  mAlter _ _ (L _ (XTyVarBndr _):_,_) _ _ = error "XTyVarBndr"
   mAlter env vs (L _ (KindedTyVar _ (L _ v) k):rest, ty) f m =
 #endif
     let
@@ -1537,6 +1538,7 @@ instance PatternMap ForAllTyMap where
 #if __GLASGOW_HASKELL__ < 806
   mMatch env (L _ (KindedTyVar (L _ v) k):rest, ty) =
 #else
+  mMatch _ (L _ (XTyVarBndr _):_,_) = const []
   mMatch env (L _ (KindedTyVar _ (L _ v) k):rest, ty) =
 #endif
     let env' = extendMatchEnv env [v]