nek0/eidolon
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

error in tag handling

Browse source
This commit is contained in:
nek0 2015-10-19 01:24:43 +02:00
parent 0d14c30f7d
commit 6e930ae0a0
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Migrations/0.0.4-0.0.5/Migration.hs
View file

@ -162,7 +162,7 @@ parseTags :: B.ByteString -> [T.Text]
parseTags bs = map handle' inner parseTags bs = map handle' inner
where where
inner = T.splitOn "," $ T.pack $ B.unpack $ B.init $ B.tail bs 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 :: B.ByteString -> T.Text
bToT = T.pack . B.unpack bToT = T.pack . B.unpack