diff options
Diffstat (limited to 'Assistant/Monad.hs')
-rw-r--r-- | Assistant/Monad.hs | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/Assistant/Monad.hs b/Assistant/Monad.hs index b8a471566..4b73061f9 100644 --- a/Assistant/Monad.hs +++ b/Assistant/Monad.hs @@ -26,7 +26,6 @@ module Assistant.Monad ( ) where import "mtl" Control.Monad.Reader -import Control.Monad.Base (liftBase, MonadBase) import System.Log.Logger import Common.Annex @@ -53,9 +52,6 @@ newtype Assistant a = Assistant { mkAssistant :: ReaderT AssistantData IO a } Applicative ) -instance MonadBase IO Assistant where - liftBase = Assistant . liftBase - data AssistantData = AssistantData { threadName :: ThreadName , threadState :: ThreadState |