(<+>) :: ByteString -> ByteString -> ByteString
(<+>) b b' = b `B.append` Char8.pack [sep] `B.append` b'
(<+>) :: ByteString -> ByteString -> ByteString
(<+>) b b' = b `B.append` Char8.pack [sep] `B.append` b'
(<+>) b b' = b `B.append` Char8.pack [sep] `B.append` b'