Redundant bracket

This commit is contained in:
Mats Rauhala 2021-10-29 17:43:35 +03:00
parent 0c75d66122
commit 1c4e766f92
1 changed files with 1 additions and 1 deletions

View File

@ -36,7 +36,7 @@ query prefix = do
CB.sourceFile (dir </> ".addressbook.dat")
.| CT.decode CT.utf8
.| CT.lines
.| C.filter (\v -> prefixLC `T.isPrefixOf` (T.toLower v))
.| C.filter (\v -> prefixLC `T.isPrefixOf` T.toLower v)
.| CT.encode CT.utf8
.| C.map (<> "\n")
.| CB.sinkHandle stdout