# HG changeset patch
# User paulson
# Date 1261414228 0
# Node ID 3a7937841585a2f2d98683f24ee5981356877cb3
# Parent  14aaccb399b3610072383a1f0781748c22623248
Changes in generated code, apparently caused by changes to the code generation system itself.

diff -r 14aaccb399b3 -r 3a7937841585 doc-src/Codegen/Thy/examples/Example.hs
--- a/doc-src/Codegen/Thy/examples/Example.hs	Mon Dec 21 16:49:04 2009 +0000
+++ b/doc-src/Codegen/Thy/examples/Example.hs	Mon Dec 21 16:50:28 2009 +0000
@@ -2,7 +2,6 @@
 
 module Example where {
 
-
 foldla :: forall a b. (a -> b -> a) -> a -> [b] -> a;
 foldla f a [] = a;
 foldla f a (x : xs) = foldla f (f a x) xs;
diff -r 14aaccb399b3 -r 3a7937841585 doc-src/Codegen/Thy/examples/example.ML
--- a/doc-src/Codegen/Thy/examples/example.ML	Mon Dec 21 16:49:04 2009 +0000
+++ b/doc-src/Codegen/Thy/examples/example.ML	Mon Dec 21 16:50:28 2009 +0000
@@ -1,5 +1,12 @@
-structure Example = 
-struct
+structure Example : sig
+  val foldl : ('a -> 'b -> 'a) -> 'a -> 'b list -> 'a
+  val rev : 'a list -> 'a list
+  val list_case : 'a -> ('b -> 'b list -> 'a) -> 'b list -> 'a
+  datatype 'a queue = AQueue of 'a list * 'a list
+  val empty : 'a queue
+  val dequeue : 'a queue -> 'a option * 'a queue
+  val enqueue : 'a -> 'a queue -> 'a queue
+end = struct
 
 fun foldl f a [] = a
   | foldl f a (x :: xs) = foldl f (f a x) xs;