29 Aug
2018
29 Aug
'18
6:46 p.m.
powderWilsonP :: Parser (Maybe PowderWilson) powderWilsonP = powderWilsonP1 <|> powderWilsonP2 where powderWilsonP1 :: Parser (Maybe PowderWilson) powderWilsonP1 = Just <$> ( PowderWilson <$> doubleP <*> doubleP <*> doubleP <*> doubleP <*> doubleP ) powderWilsonP2 :: Parser (Maybe PowderWilson) powderWilsonP2 = do skipSpace _ <- string "---------no results -----------" pure Nothing I will test it :)) thanks