humza/sml-projects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

remove some opaque signature ascriptions

Browse Source
This commit is contained in:
Humza Shahid
2025-04-22 20:49:56 +01:00
parent e59a1c67d8
commit aa068ea48e
3 changed files with 3 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
message-types/draw-msg.sml
View File

@@ -1,13 +1,4 @@
signature DRAW_MSG =
sig
datatype t =
REDRAW_TEXT of Real32.real vector
| REDRAW_CURSOR of Real32.real vector
| REDRAW_BG of Real32.real vector
| YANK of string
end
structure DrawMsg :> DRAW_MSG =
structure DrawMsg =
struct
datatype t =
REDRAW_TEXT of Real32.real vector

7
message-types/input-msg.sml
View File

@@ -1,7 +1,2 @@
signature INPUT_MSG =
sig
datatype t = CHAR_EVENT of char | KEY_ESC | RESIZE_EVENT of int * int
end
structure InputMsg :> INPUT_MSG =
structure InputMsg =
struct datatype t = CHAR_EVENT of char | KEY_ESC | RESIZE_EVENT of int * int end

8
message-types/mailbox-type.sml
View File

@@ -1,7 +1 @@
signature MAILBOX_TYPE =
sig
datatype t = DRAW of DrawMsg.t
end
structure MailboxType :> MAILBOX_TYPE =
struct datatype t = DRAW of DrawMsg.t end
structure MailboxType = struct datatype t = DRAW of DrawMsg.t end