diff --git a/Migrations/0.0.4-0.0.5/Migration.hs b/Migrations/0.0.4-0.0.5/Migration.hs index 1221c08..07ef4fc 100755 --- a/Migrations/0.0.4-0.0.5/Migration.hs +++ b/Migrations/0.0.4-0.0.5/Migration.hs @@ -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