Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 16 lines (12 sloc) 0.38 kb
f95167a @kolmodin Add missing BlingBling
kolmodin authored
1 module BlingBling where
2
3 import System.IO
4
5 -- what nobody needs but everyone wants...
6
7 -- FIXME: do something more fun here
87d875b @kolmodin Wall police
kolmodin authored
8 forMbling :: [a] -> (a -> IO b) -> IO [b]
f95167a @kolmodin Add missing BlingBling
kolmodin authored
9 forMbling lst f = do
87d875b @kolmodin Wall police
kolmodin authored
10 origBuffering <- hGetBuffering stdout
f95167a @kolmodin Add missing BlingBling
kolmodin authored
11 hSetBuffering stdout NoBuffering
12 xs <- mapM (\x -> putStr "." >> f x) lst
13 putStrLn ""
87d875b @kolmodin Wall police
kolmodin authored
14 hSetBuffering stdout origBuffering
f95167a @kolmodin Add missing BlingBling
kolmodin authored
15 return xs
Something went wrong with that request. Please try again.