subrectParser :: Parser ImageQueryParameter
subrectParser = do
    string "set_subrect"
    [x,y,w,h] <- replicateM 4 (do
        spaces
        numberstring <- digits
        return (read numberstring))
    return (SubRect (x,y,w,h))
subrectParser :: Parser ImageQueryParameter
subrectParser = do
    string "set_subrect"
    [x,y,w,h] <- replicateM 4 (do
        spaces
        numberstring <- digits
        return (read numberstring))
    return (SubRect (x,y,w,h))
subrectParser = do
    string "set_subrect"
    [x,y,w,h] <- replicateM 4 (do
        spaces
        numberstring <- digits
        return (read numberstring))
    return (SubRect (x,y,w,h))