Using Hidden also. (#223)

This commit is contained in:
Kazu Yamamoto 2014-04-18 16:12:21 +09:00
parent aecb9bc1e4
commit f2081466fc

View File

@ -83,6 +83,7 @@ packageLine :: String -> Maybe Package
packageLine l = packageLine l =
case listToMaybe $ readP_to_S packageLineP l of case listToMaybe $ readP_to_S packageLineP l of
Just ((Normal,p),_) -> Just p Just ((Normal,p),_) -> Just p
Just ((Hidden,p),_) -> Just p
_ -> Nothing _ -> Nothing
data PackageState = Normal | Hidden | Broken deriving (Eq,Show) data PackageState = Normal | Hidden | Broken deriving (Eq,Show)