Permalink
Browse files

Add missing BlingBling

  • Loading branch information...
1 parent 1bc396c commit f95167ad0978ba0b9dc8680be9275ca570d1ff2b @kolmodin kolmodin committed Aug 15, 2007
Showing with 14 additions and 0 deletions.
  1. +14 −0 BlingBling.hs
View
@@ -0,0 +1,14 @@
+module BlingBling where
+
+import System.IO
+
+-- what nobody needs but everyone wants...
+
+-- FIXME: do something more fun here
+forMbling lst f = do
+ init <- hGetBuffering stdout
+ hSetBuffering stdout NoBuffering
+ xs <- mapM (\x -> putStr "." >> f x) lst
+ putStrLn ""
+ hSetBuffering stdout init
+ return xs

0 comments on commit f95167a

Please sign in to comment.