Searched refs:sillyAlts (Results 1 – 9 of 9) sorted by relevance
176 let sillyAlts :: Conc IO a -> Conc IO a177 sillyAlts c = c <|> conc (takeMVar var >> error "shouldn't happen") function178 res <- runConc $ sillyAlts $ (+)179 <$> sillyAlts (conc (pure 1))180 <*> sillyAlts (conc (pure 2))