climb 0.3.2 → 0.3.3

raw patch · 2 files changed

+4/−6 lines, 2 files

Files

app/Main.hs +2/−4
climb.cabal +2/−2

app/Main.hs view

@@ -6,16 +6,14 @@ import Climb import Control.Monad.Catch (MonadThrow) import Control.Monad.IO.Class (MonadIO)-import Control.Monad.IO.Unlift (MonadUnliftIO (..), UnliftIO (..))+import Control.Monad.IO.Unlift (MonadUnliftIO (..), wrappedWithRunInIO) import Linenoise  newtype Repl a = Repl { unRepl :: ReplT () () IO a }   deriving (Functor, Applicative, Monad, MonadIO, MonadThrow)  instance MonadUnliftIO Repl where-  askUnliftIO = do-    UnliftIO run <- Repl askUnliftIO-    pure (UnliftIO (run . unRepl))+  withRunInIO = wrappedWithRunInIO Repl unRepl  runRepl :: Repl a -> IO a runRepl r = fmap fst (runReplT (unRepl r) () ())

climb.cabal view

@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: e47ca468edac8fb8de27be29aa1586accddc79a5cae5dd00f6ce8565478032b1+-- hash: ef9b6c6a8b9065c4429bdbdaf4fb5f06470af3787a069de51b48eb6026c5631f  name:           climb-version:        0.3.2+version:        0.3.3 synopsis:       Building blocks for a GHCi-like REPL with colon-commands description:    Please see the README on GitHub at <https://github.com/ejconlon/climb#readme> category:       User Interfaces