From 1d820820eed4a4b50cca4261ed9d8ff48600f781 Mon Sep 17 00:00:00 2001
From: Yuchen Pei <hi@ypei.me>
Date: Fri, 10 Jun 2022 18:30:51 +1000
Subject: removed some redundant pattern matchings

---
 src/HaskellCodeExplorer/AST/TypecheckedSource.hs | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/src/HaskellCodeExplorer/AST/TypecheckedSource.hs b/src/HaskellCodeExplorer/AST/TypecheckedSource.hs
index 213671b..2a9079d 100644
--- a/src/HaskellCodeExplorer/AST/TypecheckedSource.hs
+++ b/src/HaskellCodeExplorer/AST/TypecheckedSource.hs
@@ -1173,7 +1173,6 @@ foldLPat (L _span (SigPat typ pat _)) = do
   typ' <- tidyType typ
   _    <- foldLPat pat
   return $ Just typ'
-foldLPat _ = return Nothing
 
 foldLHsCmdTop :: LHsCmdTop GhcTc -> State ASTState (Maybe Type)
 foldLHsCmdTop (L span (HsCmdTop _ cmd)) = do
@@ -1267,6 +1266,3 @@ foldLHsRecFieldPat (L _ (HsRecField _ (L idSpan (FieldOcc identifier _)) arg pun
     addIdentifierToIdSrcSpanMap idSpan identifier' mbTypes
     unless pun $ void $ foldLPat arg
     return . Just . varType $ identifier'
-foldLHsRecFieldPat (L _ (HsRecField _ (L _idSpan (XFieldOcc _)) _arg _pun)) =
-  return Nothing
-
-- 
cgit v1.2.3