error in tag handling

2015-10-19 01:24:43 +02:00 · 2015-10-19 01:24:43 +02:00 · 6e930ae0a0
commit 6e930ae0a0
parent 0d14c30f7d
1 changed files with 1 additions and 1 deletions
--- 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