Skip to content

Commit c0b51cd

Browse files
last match explicit to non-exhaustiveness warnings
1 parent 76a30da commit c0b51cd

File tree

1 file changed

+1
-2
lines changed

1 file changed

+1
-2
lines changed

liquidhaskell-boot/src/Language/Haskell/Liquid/LHNameResolution.hs

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -249,8 +249,7 @@ resolveLHNames cfg thisModule localVars impMods globalRdrEnv bareSpec0 dependenc
249249
-- This one will be resolved by resolveLogicNames
250250
pure n
251251
LHNUnresolved ns@(LHDataConName _) s -> lookupGRELHName [] ns lname s listToMaybe
252-
-- Resolved names.
253-
n -> pure n
252+
n@LHNResolved { } -> pure n
254253

255254
lookupGRELHName alts ns lname s localNameLookup =
256255
case maybeDropImported ns $ GHC.lookupGRE globalRdrEnv (mkLookupGRE ns s) of

0 commit comments

Comments
 (0)