4 lines
126 B
Text
4 lines
126 B
Text
module EatFloat : Eatable with type t = float = struct
|
|
type t = float
|
|
let eat f = Printf.printf "I'm eating %f\n%!" f
|
|
end
|