Upgrade to monad-control 1.0

kaoskorobase · May 15, 2015 · 0547447 · 0547447
1 parent b6c0ffe
commit 0547447
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/Sound/SC3/Server/State/Monad.hs b/Sound/SC3/Server/State/Monad.hs
@@ -81,13 +81,13 @@ instance MonadBase IO Server where
   liftBase = liftIO
 
 instance MonadBaseControl IO Server where
-  newtype StM Server a = StM_Server a
+  type StM Server a = a
   {-# INLINE liftBaseWith #-}
   liftBaseWith f = do
     s <- Server R.ask
-    liftIO $ f $ flip runReaderT s . unServer . fmap StM_Server
+    liftIO $ f $ flip runReaderT s . unServer
   {-# INLINE restoreM #-}
-  restoreM (StM_Server a) = return a
+  restoreM = return
 
 -- | Run a 'Server' computation given a connection and return the result.
 runServer :: Server a -> ServerOptions -> Connection -> IO a

diff --git a/hsc3-server.cabal b/hsc3-server.cabal
@@ -57,7 +57,7 @@ Library
       , hsc3-process == 0.10.*
       , lifted-base >= 0.1
       , ListZipper
-      , monad-control >= 0.3
+      , monad-control >= 1.0
       , resourcet >= 0.3
       , transformers >= 0.2
       , transformers-base >= 0.4