Fix typo

[ghc-hetmet.git] / docs / users_guide / glasgow_exts.xml

diff --git a/docs/users_guide/glasgow_exts.xml b/docs/users_guide/glasgow_exts.xml
index e5b7154..f9cb3f7 100644 (file)
--- a/docs/users_guide/glasgow_exts.xml
+++ b/docs/users_guide/glasgow_exts.xml
@@ -1010,8 +1010,8 @@ in a type synonym, thus:
   f :: Discard a
   f x y = (x, show y)
 
-  g :: Discard Int -> (Int,Bool)    -- A rank-2 type
-  g f = f Int True
+  g :: Discard Int -> (Int,String)    -- A rank-2 type
+  g f = f 3 True
 </programlisting>
 </para>
 </listitem>