@@ -102,7 +102,8 @@ readP p = eitherReader $ \s -> case [ r' | (r',"") <- P.readP_to_S p s ] of
102102parsePlatform :: P.ReadP r Platform
103103parsePlatform = do arch <- P.choice [P.string "i686" >> return I386, P.string "x86_64" >> return X86_64]
104104 _ <- 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]
106107 return (Platform arch os)
107108
108109pinfo :: ParserInfo Options