Support App.transform

Apply the transform to a Keyboard. Onwards to the final demonstration!
2020-08-05 23:20:18 +01:00 · 2020-08-05 23:20:18 +01:00 · 244503bba9
commit 244503bba9
parent 61a2fb108d
5 changed files with 57 additions and 1 deletions
--- a/scratch/brilliant/Transforms.hs
+++ b/scratch/brilliant/Transforms.hs
@ -7,7 +7,7 @@ import Text.ParserCombinators.ReadP

 data Transform = VerticalFlip
               | HorizontalFlip
-               | Shift Integer
+               | Shift Int
               deriving (Eq, Show)

 digit :: ReadP Char