Import hs-plugins cvs

2005-04-24 08:51:33 +00:00
commit 887fa59389
494 changed files with 23721 additions and 0 deletions
--- a/examples/printf/002/Main.hs
+++ b/examples/printf/002/Main.hs
@ -0,0 +1,12 @@
+import Printf
+import Control.Exception        ( evaluate )
+
+main = do
+        fn <- evaluate $! printf "%10.4f\n"
+        fn $> (10.0 :: Double)          ! []
+        fn $> (-10.0 :: Double)         ! []
+        fn $> (10.1010 :: Double)       ! []
+        fn $> (0.0 :: Double)           ! []
+        fn $> (0.987654321 :: Double)   ! []
+        fn $> (987654321 :: Double)     ! []
+        fn $> (-987654321 :: Double)     ! []