From 6e930ae0a0b12b262bbaf0f1adca92eea56d1a0e Mon Sep 17 00:00:00 2001 From: nek0 Date: Mon, 19 Oct 2015 01:24:43 +0200 Subject: [PATCH] error in tag handling --- Migrations/0.0.4-0.0.5/Migration.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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