From 04205219ee463b96fff21db83c57d07277167740 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Fri, 12 May 2000 16:03:04 +0000
Subject: [PATCH] [project @ 2000-05-12 16:03:04 by sewardj] DietHEP demo
 program wurble

---
 ghc/interpreter/Dh_Demo.hs |    6 ++++++
 ghc/interpreter/dh_demo.c  |    2 +-
 2 files changed, 7 insertions(+), 1 deletion(-)
 create mode 100644 ghc/interpreter/Dh_Demo.hs

diff --git a/ghc/interpreter/Dh_Demo.hs b/ghc/interpreter/Dh_Demo.hs
new file mode 100644
index 0000000..fb6d6d0
--- /dev/null
+++ b/ghc/interpreter/Dh_Demo.hs
@@ -0,0 +1,6 @@
+
+module Dh_Demo where
+
+wurble :: Int -> IO ()
+wurble x = putStr ( "Hello Erik && Daan, today's magic number is: " 
+                    ++ show x ++ "\n")
diff --git a/ghc/interpreter/dh_demo.c b/ghc/interpreter/dh_demo.c
index 86c41f0..53ba464 100644
--- a/ghc/interpreter/dh_demo.c
+++ b/ghc/interpreter/dh_demo.c
@@ -11,7 +11,7 @@ int main ( int argc, char** argv )
    DH_MODULE hModule;
    void(*proc)(int);
 
-   hModule = DH_LoadLibrary("FooBar");   /* note no .hs */
+   hModule = DH_LoadLibrary("Dh_Demo");   /* note no .hs */
    assert(hModule != 0);
    proc = DH_GetProcAddress ( dh_ccall, hModule, "wurble" );
    assert(proc);
-- 
1.7.10.4