error in tag handling

This commit is contained in:
nek0 2015-10-19 01:24:43 +02:00
parent 0d14c30f7d
commit 6e930ae0a0

View file

@ -162,7 +162,7 @@ parseTags :: B.ByteString -> [T.Text]
parseTags bs = map handle' inner
where
inner = T.splitOn "," $ T.pack $ B.unpack $ B.init $ B.tail bs
handle' = T.dropEnd 2 . T.drop 3
handle' = T.dropEnd 1 . T.drop 2
bToT :: B.ByteString -> T.Text
bToT = T.pack . B.unpack