Update src/Haskell/Ide/Engine/Channel.hs

mpickering · wz1000 · web-flow · commit 373a474c789a · 2019-07-25T12:22:38.000+01:00
Co-Authored-By: wz1000 &lt;zubin@cmi.ac.in&gt;
diff --git a/src/Haskell/Ide/Engine/Channel.hs b/src/Haskell/Ide/Engine/Channel.hs
@@ -35,7 +35,7 @@ newChanSTM = do
 
 -- | Consumes and returns the next value of the given channel
 readChan :: OutChan a -> IO a
-readChan = STM.atomically . readChanSTM . id
+readChan = STM.atomically . readChanSTM
 
 -- | STM version of 'readChan', useful for chaining many STM calls inside a single
 -- 'atomically' block.
