- number_loop n freeProducers = do
- freeProducer <- lift $ runFreeT freeProducers
- case freeProducer of
- Pure badbytes -> do yield $ T.pack "\n"
- return badbytes -- these could be inspected ...
- Free p -> do yield $ T.pack ("\n" ++ show n ++ " ")
- nextFreeProducers <- p
- number_loop (n+1) nextFreeProducers
+ number_loop n free = do
+ fproducer <- lift $ runFreeT free
+ case fproducer of
+ Pure badbytes -> do
+ yield $ T.pack "\n"
+ return badbytes -- these could be inspected ...
+ Free p -> do
+ yield $ T.pack ("\n" ++ show n ++ " ")
+ next_free <- p
+ number_loop (n+1) next_free