1 2 3 4 5 6 7 8 9 10 11 12 13 | import Control.Monad.Trans.Reader add :: (Num a) -> a -> Reader a a add num = do otherNum <- ask return (num + otherNum) main = do let answer = (`runReader` 5) $ do x <- add 10 y <- add 6 return (x+y) print answer |
aW1wb3J0IENvbnRyb2wuTW9uYWQuVHJhbnMuUmVhZGVyCgphZGQgOjogKE51bSBhKSAtPiBhIC0+IFJlYWRlciBhIGEKYWRkIG51bSA9IGRvCiAgICBvdGhlck51bSA8LSBhc2sKICAgIHJldHVybiAobnVtICsgb3RoZXJOdW0pCiAgICAKbWFpbiA9IGRvCiAgICBsZXQgYW5zd2VyID0gKGBydW5SZWFkZXJgIDUpICQgZG8KICAgICAgICB4IDwtIGFkZCAxMAogICAgICAgIHkgPC0gYWRkIDYKICAgICAgICByZXR1cm4gKHgreSkKICAgIHByaW50IGFuc3dlcg==
prog.hs:1:7:
Could not find module `Control.Monad.Trans.Reader':
Use -v to see a list of the files searched for.
-
result: Compilation error (maybe you wish to see an example for Haskell)



