From: sewardj <unknown>
Date: Fri, 12 May 2000 16:03:04 +0000 (+0000)
Subject: [project @ 2000-05-12 16:03:04 by sewardj]
X-Git-Tag: Approximately_9120_patches~4482
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=04205219ee463b96fff21db83c57d07277167740;p=ghc-hetmet.git

[project @ 2000-05-12 16:03:04 by sewardj]
DietHEP demo program wurble
---

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);