setDefault :: Alternative m => a -> m a -> m a
setDefault def
  = fmap (fromMaybe def) . optional
setDefault :: Alternative m => a -> m a -> m a
setDefault def
  = fmap (fromMaybe def) . optional
setDefault def
  = fmap (fromMaybe def) . optional