7 lines
164 B
Text
7 lines
164 B
Text
|
type banana = Foo (* a dummy type *)
|
||
|
|
|
||
|
|
module Banana : Eatable with type t = banana = struct
|
||
|
|
type t = banana
|
||
|
|
let eat _ = print_endline "I'm eating a banana"
|
||
|
|
end
|