Permalink
Browse files

fix: API changes from attoparsec-conduit 0.3

  • Loading branch information...
1 parent 19c3c25 commit 58b3727b9d4f32cf7c077b4c9cec59421866c49e @bjin bjin committed Mar 22, 2012
Showing with 2 additions and 3 deletions.
  1. +2 −3 VerDB.hs
View
@@ -35,16 +35,15 @@ getVerAlist installedOnly = justOnly <$> verInfos
verInfos = runResourceT $ sourceCmd script $$ cabalListParser
justOnly = map (second fromJust) . filter (isJust . snd)
+ cabalListParser = sinkParser verinfos
+
----------------------------------------------------------------
lookupLatestVersion :: String -> VerDB -> Maybe [Int]
lookupLatestVersion pkgid (VerDB db) = M.lookup pkgid db
----------------------------------------------------------------
-cabalListParser :: Sink ByteString IO [VerInfo]
-cabalListParser = sinkParser verinfos
-
verinfos :: Parser [VerInfo]
verinfos = many1 verinfo

0 comments on commit 58b3727

Please sign in to comment.