expressionListArbitrary :: (Applicative f, Effective m r f, MonadGen m) => (Either Text Update -> f (Either Text Update)) -> Value -> f Value
expressionListArbitrary = failing (getExpressionInfoPanel . traverse . editor . to Right) (to $ const $ Left $ "Could not find Expression Editor Widget ") . act (mapM $ arbitraryExpressionList) . to (fmap toUpdate)
expressionListArbitrary :: (Applicative f, Effective m r f, MonadGen m) => (Either Text Update -> f (Either Text Update)) -> Value -> f Value
expressionListArbitrary = failing (getExpressionInfoPanel . traverse . editor . to Right) (to $ const $ Left $ "Could not find Expression Editor Widget ") . act (mapM $ arbitraryExpressionList) . to (fmap toUpdate)
expressionListArbitrary = failing (getExpressionInfoPanel . traverse . editor . to Right) (to $ const $ Left $ "Could not find Expression Editor Widget ") . act (mapM $ arbitraryExpressionList) . to (fmap toUpdate)