Skip to content

Commit

Permalink
Satisfy -Wincomplete-uni-patterns with splitExtension
Browse files Browse the repository at this point in the history
  • Loading branch information
philderbeast committed Mar 17, 2024
1 parent f8a7d43 commit 3486f36
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions hackage-security/src/Hackage/Security/TUF/Patterns.hs
Original file line number Diff line number Diff line change
Expand Up @@ -126,8 +126,8 @@ matchPattern = go . splitDirectories
go [] _ = Nothing
go [f] (PatFileConst f') = do guard (f == f')
return ()
go [f] (PatFileExt e') = do let (bn, _:e) = splitExtension f
guard $ e == e'
go [f] (PatFileExt e') = do let (bn, dotExt) = splitExtension f
guard $ dotExt == '.':e'
return (bn :- ())
go [_] _ = Nothing
go (d:p) (PatDirConst d' p') = do guard (d == d')
Expand Down

0 comments on commit 3486f36

Please sign in to comment.