[Pkg-haskell-commits] [SCM] haskell-testpack branch, master, updated. debian/1.0.2-1-4-gb0d6b36

[John Goerzen]

The following commit has been merged in the master branch:
commit 7029614e3466657fb0c81bae46ca32187477d7ae
Author: John Goerzen <jgoerzen at complete.org>
Date:   Sun Nov 14 04:23:26 2004 +0100

    Checkpointing again
    
    Keywords:
    
    
    (jgoerzen at complete.org--projects/missingh--head--0.5--patch-29)

diff --git a/ChangeLog b/ChangeLog
index f2b2d52..cbdb9c8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,18 @@
 # arch-tag: automatic-ChangeLog--jgoerzen at complete.org--projects/missingh--head--0.5
 #
 
+2004-11-13 21:23:26 GMT	John Goerzen <jgoerzen at complete.org>	patch-29
+
+    Summary:
+      Checkpointing again
+    Revision:
+      missingh--head--0.5--patch-29
+
+
+    modified files:
+     ChangeLog libsrc/MissingH/Printf.hs
+
+
 2004-11-13 20:59:35 GMT	John Goerzen <jgoerzen at complete.org>	patch-28
 
     Summary:
diff --git a/libsrc/MissingH/Printf.hs b/libsrc/MissingH/Printf.hs
index e0156b4..ceb621b 100644
--- a/libsrc/MissingH/Printf.hs
+++ b/libsrc/MissingH/Printf.hs
@@ -36,6 +36,7 @@ module MissingH.Printf(sprintf,
                        PFRun(..),
                        PFCall(..),
                        PFType(..),
+                       doit,
                        wrapper
                        ) where
 
@@ -107,6 +108,9 @@ sprintf (x:xs) y = x : sprintf xs y
 wrapper :: String -> [Value] -> Value
 wrapper f v = toValue $ sprintf f v
 
+-- doit format v = (pfrun (wrapper format) v)::String
+doit f = pfrun $ wrapper f
+
 {-
 wrapper :: String -> [PFType] -> String
 wrapper x v = sprintf x (map toValue v)

-- 
haskell-testpack