diff --git a/src/Control/Addressbook/Query.hs b/src/Control/Addressbook/Query.hs index 24d534c..cf3d3fe 100644 --- a/src/Control/Addressbook/Query.hs +++ b/src/Control/Addressbook/Query.hs @@ -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