diff options
author | Yuchen Pei <hi@ypei.me> | 2022-06-10 18:30:51 +1000 |
---|---|---|
committer | Yuchen Pei <hi@ypei.me> | 2022-06-10 18:30:51 +1000 |
commit | 1d820820eed4a4b50cca4261ed9d8ff48600f781 (patch) | |
tree | 73e0d235c8f614e537d5ae047509b4b26aa5386c | |
parent | 198d1649f3e428b47d812726604f2e89b07147ac (diff) |
removed some redundant pattern matchings
-rw-r--r-- | src/HaskellCodeExplorer/AST/TypecheckedSource.hs | 4 |
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 - |