Remove incorrect default (fixes #56)

fpco · Mar 2, 2020 · 818c83b · 818c83b
1 parent d9946e6
commit 818c83b
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 4 deletions.
diff --git a/unliftio-core/ChangeLog.md b/unliftio-core/ChangeLog.md
@@ -1,5 +1,9 @@
 # ChangeLog for unliftio-core
 
+## 0.2.0.1
+
+* Remove faulty default implementation of `withRunInIO` [#56](https://github.com/fpco/unliftio/issues/56)
+
 ## 0.2.0.0
 
 * Move `askUnliftIO` out of class [#55](https://github.com/fpco/unliftio/issues/55)

diff --git a/unliftio-core/package.yaml b/unliftio-core/package.yaml
@@ -1,12 +1,12 @@
 name:                unliftio-core
-version:             0.2.0.0
+version:             0.2.0.1
 synopsis:            The MonadUnliftIO typeclass for unlifting monads to IO
 description:         Please see the documentation and README at <https://www.stackage.org/package/unliftio-core>
 homepage:            https://github.com/fpco/unliftio/tree/master/unliftio-core#readme
 license:             MIT
 author:              Michael Snoyman, Francesco Mazzoli
 maintainer:          [email protected]
-copyright:           2017 FP Complete
+copyright:           2017-2020 FP Complete
 category:            Control
 extra-source-files:
 - README.md

diff --git a/unliftio-core/src/Control/Monad/IO/Unlift.hs b/unliftio-core/src/Control/Monad/IO/Unlift.hs
@@ -57,9 +57,7 @@ class MonadIO m => MonadUnliftIO m where
   -- action @m@ in @IO@.
   --
   -- @since 0.1.0.0
-  {-# INLINE withRunInIO #-}
   withRunInIO :: ((forall a. m a -> IO a) -> IO b) -> m b
-  withRunInIO inner = askUnliftIO >>= \u -> liftIO (inner (unliftIO u))
 instance MonadUnliftIO IO where
   {-# INLINE withRunInIO #-}
   withRunInIO inner = inner id