edits1 :: ByteString -> Set.Set ByteString
edits1 w = foldl' (\acc f -> Set.union (foldl' (flip Set.insert) Set.empty
                   (f w)) acc)
               Set.empty [deletes, inserts, replaces, transposes]
edits1 :: ByteString -> Set.Set ByteString
edits1 w = foldl' (\acc f -> Set.union (foldl' (flip Set.insert) Set.empty
                   (f w)) acc)
               Set.empty [deletes, inserts, replaces, transposes]
edits1 w = foldl' (\acc f -> Set.union (foldl' (flip Set.insert) Set.empty
                   (f w)) acc)
               Set.empty [deletes, inserts, replaces, transposes]