ref: 747b9bb14fe56cfca476ce783d1015e7b0114dc5
parent: 1498067e71268b57b1f4133dc727daa45636415e
author: Lennart Augustsson <lennart.augustsson@epicgames.com>
date: Thu Sep 21 20:40:44 EDT 2023
Formatting.
--- a/src/MicroHs/IdentMap.hs
+++ b/src/MicroHs/IdentMap.hs
@@ -13,14 +13,14 @@
--Ximport Compat
data Map a
- = Nil -- empty tree
- | One Ident a -- singleton
- | Node -- tree node
- (Map a) -- left subtree
- Int -- size of this tree
- Ident
- a -- element stored in the node
- (Map a) -- right subtree
+ = Nil -- empty tree
+ | One Ident a -- singleton
+ | Node -- tree node
+ (Map a) -- left subtree
+ Int -- size of this tree
+ Ident -- key stored in the node
+ a -- element stored in the node
+ (Map a) -- right subtree
--Xderiving(Show)
empty :: forall a . Map a
--
⑨