arbitraryExpressionList :: MonadGen m => ExpressionEditorWidget -> m ExpressionEditorWidget
arbitraryExpressionList widget = do
  l <- genArbitrary arbitrary
  return $ expwValue .~ toAppianList l $ widget
arbitraryExpressionList :: MonadGen m => ExpressionEditorWidget -> m ExpressionEditorWidget
arbitraryExpressionList widget = do
  l <- genArbitrary arbitrary
  return $ expwValue .~ toAppianList l $ widget
arbitraryExpressionList widget = do
  l <- genArbitrary arbitrary
  return $ expwValue .~ toAppianList l $ widget