diff options
| author | Ben Sima <ben@bsima.me> | 2019-10-19 22:47:20 -0700 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2019-10-19 22:47:20 -0700 |
| commit | 2b9d61aada9108dac74c956da7acec10b790221d (patch) | |
| tree | e3811f93a84c52b107e4bd1fee37e2de1a0d7650 | |
| parent | fa110aee28474835b0b84f2b348fec8553d965dd (diff) | |
remove unknown comment
| -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 |