X-Git-Url: http://git.lukelau.me/?a=blobdiff_plain;ds=sidebyside;f=src%2FLanguage%2FHaskell%2FLSP%2FTest%2FCompat.hs;fp=src%2FLanguage%2FHaskell%2FLSP%2FTest%2FCompat.hs;h=f616331929b7250c9930708652322089c5fc44de;hb=fbb260c6078a39ff071fefd6586af18715b3e6a3;hp=6b018cce5a526e7e111d459d3bd3b68d3d21ed09;hpb=54b23e6b7a8aa59e649a807ab286f0808908935a;p=lsp-test.git

diff --git a/src/Language/Haskell/LSP/Test/Compat.hs b/src/Language/Haskell/LSP/Test/Compat.hs
index 6b018cc..f616331 100644
--- a/src/Language/Haskell/LSP/Test/Compat.hs
+++ b/src/Language/Haskell/LSP/Test/Compat.hs
@@ -5,9 +5,6 @@
 {-# OPTIONS_GHC -Wunused-imports #-}
 module Language.Haskell.LSP.Test.Compat where
 
-import Control.Concurrent.Chan
-import Control.Monad.IO.Class
-import Data.Conduit
 import Data.Maybe
 
 #if MIN_VERSION_process(1,6,3)
@@ -51,13 +48,3 @@ getProcessID p = fromIntegral . fromJust <$> getProcessID' p
 #endif
       _ -> return Nothing
 #endif
-
-#if MIN_VERSION_conduit(1,3,0)
-chanSource :: MonadIO m => Chan o -> ConduitT i o m b
-#else
-chanSource :: MonadIO m => Chan o -> ConduitM i o m b
-#endif
-chanSource c = do
-  x <- liftIO $ readChan c
-  yield x
-  chanSource c