aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorYuchen Pei <hi@ypei.me>2022-06-10 18:30:51 +1000
committerYuchen Pei <hi@ypei.me>2022-06-10 18:30:51 +1000
commit1d820820eed4a4b50cca4261ed9d8ff48600f781 (patch)
tree73e0d235c8f614e537d5ae047509b4b26aa5386c
parent198d1649f3e428b47d812726604f2e89b07147ac (diff)
removed some redundant pattern matchings
-rw-r--r--src/HaskellCodeExplorer/AST/TypecheckedSource.hs4
1 files changed, 0 insertions, 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
-