29 Aug
                
                    2018
                
            
            
                29 Aug
                
                '18
                
            
            
            
        
    
                9:16 a.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