about summary refs log tree commit diff
path: root/scratch/brilliant/Keyboard.hs
diff options
context:
space:
mode:
authorWilliam Carroll <wpcarro@gmail.com>2020-08-05T22·20+0100
committerWilliam Carroll <wpcarro@gmail.com>2020-08-05T22·21+0100
commit244503bba91c9a99c9ab5a6a74b74d5c9bd9667e (patch)
treee26248c17d4374ab69647e461613b5bb15a1513c /scratch/brilliant/Keyboard.hs
parent61a2fb108dcdcc599ad9fe9de7b02d1181aec2d1 (diff)
Support App.transform
Apply the transform to a Keyboard. Onwards to the final demonstration!
Diffstat (limited to 'scratch/brilliant/Keyboard.hs')
-rw-r--r--scratch/brilliant/Keyboard.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/scratch/brilliant/Keyboard.hs b/scratch/brilliant/Keyboard.hs
index c5baaa5f2474..885acb29e4cd 100644
--- a/scratch/brilliant/Keyboard.hs
+++ b/scratch/brilliant/Keyboard.hs
@@ -6,6 +6,7 @@ import qualified Data.List as List
 --------------------------------------------------------------------------------
 
 newtype Keyboard = Keyboard [[Char]]
+  deriving (Eq)
 
 instance Show Keyboard where
   show (Keyboard xxs) =