diff -r 7de0e20ca24d -r e5ab21d14974 doc-src/Codegen/Thy/examples/Example.hs --- a/doc-src/Codegen/Thy/examples/Example.hs Sun Jun 28 11:02:27 2009 +0200 +++ b/doc-src/Codegen/Thy/examples/Example.hs Mon Jun 29 12:18:54 2009 +0200 @@ -23,9 +23,9 @@ dequeue (AQueue [] []) = (Nothing, AQueue [] []); dequeue (AQueue xs (y : ys)) = (Just y, AQueue xs ys); dequeue (AQueue (v : va) []) = - (let { + let { (y : ys) = rev (v : va); - } in (Just y, AQueue [] ys) ); + } in (Just y, AQueue [] ys); enqueue :: forall a. a -> Queue a -> Queue a; enqueue x (AQueue xs ys) = AQueue (x : xs) ys;