diff options
| -rw-r--r-- | lore/Control/Concurrent/Go.hs | 2 |
1 files changed, 0 insertions, 2 deletions
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 |