Permalink
Browse files

Merge pull request #4 from bjin/conduit-0.3-fix

Conduit 0.3 fix
  • Loading branch information...
2 parents 19c3c25 + 58b3727 commit f845494e995dc2a9fd90e986a95c003dcf02fcf5 @kazu-yamamoto committed Mar 22, 2012
Showing with 2 additions and 3 deletions.
  1. +2 −3 VerDB.hs
View
5 VerDB.hs
@@ -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 f845494

Please sign in to comment.