ormolu/data/examples/declaration/class/dependency-super-classes-out.hs

{-# LANGUAGE FunctionalDependencies #-}

-- | Something.
class (MonadReader r s, MonadWriter w m) => MonadState s m | m -> s where
  get :: m s
  put :: s -> m ()

-- | 'MonadParsec'
class ( Stream s -- Token streams
      , MonadPlus m -- Potential for failure
      )
      => MonadParsec e s m
      | m -> e s where
  -- | 'getState' returns state
  getState
    :: m s
  -- | 'putState' sets state
  putState
    :: s
    -> m ()