1 files changed, 0 insertions, 41 deletions
diff --git a/scratch/brilliant/App.hs b/scratch/brilliant/App.hs
deleted file mode 100644
index 0272988f371c..000000000000
--- a/scratch/brilliant/App.hs
+++ /dev/null
@@ -1,41 +0,0 @@
---------------------------------------------------------------------------------
-module App where
---------------------------------------------------------------------------------
-import Keyboard (Keyboard(..))
-import Transforms (Transform(..))
-import Utils ((|>))
-
-import qualified Data.Char as Char
-import qualified Utils
-import qualified Data.List.Split as Split
-import qualified Keyboard
-import qualified Data.HashMap.Strict as HM
---------------------------------------------------------------------------------
-
-transform :: Keyboard -> Transform -> Keyboard
-
-transform (Keyboard xs) xform =
-  case xform of
-    HorizontalFlip ->
-      xs
-      |> fmap reverse
-      |> Keyboard
-
-    VerticalFlip ->
-      xs
-      |> reverse
-      |> Keyboard
-
-    Shift n ->
-      xs
-      |> concat
-      |> Utils.rotate n
-      |> Split.chunksOf 10
-      |> Keyboard
-
-retypePassage :: String -> Keyboard -> Maybe String
-retypePassage passage newKeyboard =
-  passage
-  |> fmap Char.toUpper
-  |> traverse (\c -> HM.lookup c Keyboard.charToCoord)
-  >>= traverse (Keyboard.coordToChar newKeyboard)