{"body":"#!/usr/bin/env stack\n-- stack --resolver lts-18.2 exec ghci --package mtl --package persistent\n\n{-# LANGUAGE FlexibleContexts    #-}\n{-# LANGUAGE ScopedTypeVariables #-}\n\nimport           Control.Monad.Reader\nimport           Data.Functor.Identity\nimport           Database.Persist.Sql  (SqlPersistT)\n\nfuncOne :: (MonadReader env m) => Int -> SqlPersistT m ()\nfuncOne i = do\n  _ <- do\n    backend <- ask\n    x       <- runReaderT (runReaderT funcTwo backend) i\n    pure ()\n  pure ()\n\nfuncTwo :: (MonadReader Int m) => SqlPersistT m ()\nfuncTwo = undefined","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/93RjtIYP","modified":1628981028,"id":"93RjtIYP","size":554,"lines":20,"own_paste":false,"theme":"","date":1628981028}