diff options
Diffstat (limited to 'utils/ghctags/Main.hs')
-rw-r--r-- | utils/ghctags/Main.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/utils/ghctags/Main.hs b/utils/ghctags/Main.hs index 1969216956..ccdd327217 100644 --- a/utils/ghctags/Main.hs +++ b/utils/ghctags/Main.hs @@ -299,8 +299,8 @@ boundThings modname lbinding = ConPatIn _ conargs -> conArgs conargs tl ConPatOut{ pat_args = conargs } -> conArgs conargs tl LitPat _ -> tl - NPat _ _ _ -> tl -- form of literal pattern? - NPlusKPat id _ _ _ -> thing id : tl + NPat {} -> tl -- form of literal pattern? + NPlusKPat id _ _ _ _ _ -> thing id : tl SigPatIn p _ -> patThings p tl SigPatOut p _ -> patThings p tl _ -> error "boundThings" |