classify 2008.10.20.1 → 2008.11.13

raw patch · 2 files changed

+4/−2 lines, 2 files

Files

classify.cabal +1/−1
src/Data/Classify/Parser.hs +3/−1

classify.cabal view

@@ -1,5 +1,5 @@ Name:           classify-Version:        2008.10.20.1+Version:        2008.11.13 Copyright:      2004-2008, Lemmih Build-Depends:  base, mtl, containers Build-Type:     Simple

src/Data/Classify/Parser.hs view

@@ -113,7 +113,9 @@ parseSeries known     = do many anyChar          nPre <- many1 anyChar-         n <- Map.lookup (trunc nPre) known+         n <- case Map.lookup (trunc nPre) known of+                Nothing -> fail "not known"+                Just v  -> return v --         guard (trunc n `Map.member` known)          s <- look          guard (take 2 s /= "th") -- Fix for '24th 2007.avi'. It shouldn't parse 24th as a series.