lobo/kestrel
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

housekeeping

Browse source
This commit is contained in:
Lobo 2025-12-18 18:50:14 -03:00
parent 9e64f44980
commit 56a3398c8f
3 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lib/Device.ml
View file

@ -8,7 +8,8 @@ module type DEVICE = sig
val deo : Machine.machine -> int -> int -> unit
end
module Compose (D1 : DEVICE) (D2 : DEVICE) : DEVICE = struct
module Compose (D1 : DEVICE) (D2 : DEVICE) :
DEVICE with type state = D1.state * D2.state = struct
type state = D1.state * D2.state
let state = (D1.state, D2.state)