Browse Source

Parse M3U tracks without title

tags/v0.5.0.0
Catherine Galkina 2 years ago
parent
commit
26499d9470
1 changed files with 3 additions and 4 deletions
  1. 3
    4
      src/Text/Playlist/M3U/Reader.hs

+ 3
- 4
src/Text/Playlist/M3U/Reader.hs View File

@@ -73,8 +73,7 @@ commentOrDirective = do
directive = do
mlen <- (Just . realToFrac <$> signed double) <|> return Nothing -- Parse length.
skip (== 44) -- Skip comma.
skipSpace
text <- decodeUtf8 <$> takeWhile1 (not . isEOL)
skipSpace
return (Just (Just text, mlen))
mtext <- (Just . decodeUtf8 <$> takeWhile1 (not . isEOL)) <|> (return Nothing)
skipLine
return (Just (mtext, mlen))


Loading…
Cancel
Save