サーチ…


前書き

Readerは各機能に値を渡す機能を提供します。いくつかの図で役立つガイドがここにあります: http : //adit.io/posts/2013-06-10-three-useful-monads.html

シンプルなデモンストレーション

Readerモナドの重要な部分は、 askhttps://hackage.haskell.org/package/mtl-2.2.1/docs/Control-Monad-Reader.html#v:ask)関数です。これは、説明のために定義されています目的:

import Control.Monad.Trans.Reader hiding (ask)
import Control.Monad.Trans

ask :: Monad m => ReaderT r m r
ask = reader id

main :: IO ()
main = do
  let f = (runReaderT $ readerExample) :: Integer -> IO String
  x <- f 100
  print x
  --
  let fIO = (runReaderT $ readerExampleIO) :: Integer -> IO String
  y <- fIO 200
  print y

readerExample :: ReaderT Integer IO String
readerExample = do
  x <- ask
  return $ "The value is: " ++ show x

liftAnnotated :: IO a -> ReaderT Integer IO a
liftAnnotated = lift

readerExampleIO :: ReaderT Integer IO String
readerExampleIO = do
  x <- reader id
  lift $ print "Hello from within"
  liftAnnotated $ print "Hello from within..."
  return $ "The value is: " ++ show x

上記は印刷されます:

"The value is: 100"
"Hello from within"
"Hello from within..."
"The value is: 200"


Modified text is an extract of the original Stack Overflow Documentation
ライセンスを受けた CC BY-SA 3.0
所属していない Stack Overflow