Ash.hs « 22 « Haskell-book - book-exercises - Computing book exercise solutions.

summary refs log tree commit diff

path: root/Haskell-book/22/Ash.hs

blob: d3bf585b7a96465c8711f5f7787d0a2cf1b3b897 (plain)

module Ask where

newtype Reader r a =
    Reader { runReader :: r -> a }

ask :: Reader a a
ask = Reader id