From 2b9d61aada9108dac74c956da7acec10b790221d Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Sat, 19 Oct 2019 22:47:20 -0700 Subject: remove unknown comment --- lore/Control/Concurrent/Go.hs | 2 -- 1 file changed, 2 deletions(-) (limited to 'lore/Control') diff --git a/lore/Control/Concurrent/Go.hs b/lore/Control/Concurrent/Go.hs index 69ce9ed..711611f 100644 --- a/lore/Control/Concurrent/Go.hs +++ b/lore/Control/Concurrent/Go.hs @@ -73,8 +73,6 @@ go = forkIO -- can I just implement forM/Traversable over the channel? forRange :: TChan (Maybe a) -> (a -> IO b) -> IO [b] forRange ch fn = helper fn [] where - -- I could not get Intero or ghc to accept a type-annotation for the helper function, - -- even using the exact inferred type from Intero. -- helper :: (a -> IO b) -> [b] -> IO [b] helper fn acc = do jv <- readCh ch -- cgit v1.2.3