@@ -102,7 +102,8 @@ readP p = eitherReader $ \s -> case [ r' | (r',"") <- P.readP_to_S p s ] of
102parsePlatform :: P.ReadP r Platform
102parsePlatform :: P.ReadP r Platform
103parsePlatform = do arch <- P.choice [P.string "i686" >> return I386, P.string "x86_64" >> return X86_64]
103parsePlatform = do arch <- P.choice [P.string "i686" >> return I386, P.string "x86_64" >> return X86_64]
104 _ <- P.char '-'
104 _ <- P.char '-'
105− os <- P.choice [P.string "linux" >> return Linux, P.string "darwin" >> return OSX]
105+ os <- P.choice [ P.string "linux" >> return Linux, P.string "darwin" >> return OSX
106+ , P.string "windows" >> return Windows]
106 return (Platform arch os)
107 return (Platform arch os)
108pinfo :: ParserInfo Options
109pinfo :: ParserInfo Options