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

a bit of refactoring to allow addition of more tests

Browse Source
This commit is contained in:
Humza Shahid
2025-03-22 05:18:25 +00:00
parent deb24c2063
commit 649bcb66e1
9 changed files with 2912 additions and 2709 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

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

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

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