changeRequest :: RequestParser Request
changeRequest = do
    void $ stringToken "set "
    void $ stringToken "probability "
    newprob <- Parse.floating

    if newprob >= 0.0 && newprob <= 1.0
        then return $ ChangeProbabilityRequest newprob
        else Parse.unexpected "Probability should be between 0 and 1"
changeRequest :: RequestParser Request
changeRequest = do
    void $ stringToken "set "
    void $ stringToken "probability "
    newprob <- Parse.floating

    if newprob >= 0.0 && newprob <= 1.0
        then return $ ChangeProbabilityRequest newprob
        else Parse.unexpected "Probability should be between 0 and 1"
changeRequest = do
    void $ stringToken "set "
    void $ stringToken "probability "
    newprob <- Parse.floating

    if newprob >= 0.0 && newprob <= 1.0
        then return $ ChangeProbabilityRequest newprob
        else Parse.unexpected "Probability should be between 0 and 1"