changeset 25731 | b3e415b0cf5c |
parent 25182 | 64e3f45dc6f4 |
--- a/doc-src/IsarAdvanced/Codegen/Thy/examples/Codegen.hs Thu Dec 20 14:33:43 2007 +0100 +++ b/doc-src/IsarAdvanced/Codegen/Thy/examples/Codegen.hs Thu Dec 20 21:09:38 2007 +0100 @@ -6,11 +6,11 @@ nulla :: a; }; -heada :: (Codegen.Null a) => [a] -> a; +heada :: forall a. (Codegen.Null a) => [a] -> a; heada (x : xs) = x; heada [] = Codegen.nulla; -null_option :: Maybe a; +null_option :: forall a. Maybe a; null_option = Nothing; instance Codegen.Null (Maybe a) where {