Commit 12f7b865 authored by Simon Marlow's avatar Simon Marlow
Browse files

fix markup

parent 529281f2
...@@ -427,7 +427,7 @@ foreign export stdcall adder :: Int -> Int -> IO Int ...@@ -427,7 +427,7 @@ foreign export stdcall adder :: Int -> Int -> IO Int
</para> </para>
<programlisting> <programlisting>
// StartEnd.c // StartEnd.c
#include <Rts.h> #include &lt;Rts.h&gt;
extern void __stginit_Adder(void); extern void __stginit_Adder(void);
...@@ -438,7 +438,7 @@ void HsStart() ...@@ -438,7 +438,7 @@ void HsStart()
// Initialize Haskell runtime // Initialize Haskell runtime
char** args = argv; char** args = argv;
hs_init(&argc, &args); hs_init(&amp;argc, &amp;args);
// Tell Haskell about all root modules // Tell Haskell about all root modules
hs_add_root(__stginit_Adder); hs_add_root(__stginit_Adder);
...@@ -499,7 +499,7 @@ HsStart ...@@ -499,7 +499,7 @@ HsStart
End Sub End Sub
Public Sub Test() Public Sub Test()
MsgBox "12 + 5 = " & Adder(12, 5) MsgBox "12 + 5 = " &amp; Adder(12, 5)
End Sub End Sub
</programlisting> </programlisting>
<para> <para>
...@@ -522,7 +522,7 @@ End Sub ...@@ -522,7 +522,7 @@ End Sub
// Tester.cpp // Tester.cpp
#include "HsFFI.h" #include "HsFFI.h"
#include "Adder_stub.h" #include "Adder_stub.h"
#include <stdio.h> #include &lt;stdio.h&gt;
extern "C" { extern "C" {
void HsStart(); void HsStart();
...@@ -547,6 +547,8 @@ $ tester ...@@ -547,6 +547,8 @@ $ tester
12 + 5 = 17 12 + 5 = 17
</screen> </screen>
</sect3>
</sect2> </sect2>
</sect1> </sect1>
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment