Redundant bracket

This commit is contained in:
Mats Rauhala 2021-10-29 17:43:35 +03:00
parent 0c75d66122
commit 1c4e766f92

View File

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