From a720b498c8dea9b44dee6171f780fa74f4f979cb Mon Sep 17 00:00:00 2001 From: Jonathan Daugherty Date: Sat, 16 May 2015 19:17:25 -0700 Subject: [PATCH] Remove unused translation from test program --- programs/Main.hs | 6 ------ 1 file changed, 6 deletions(-) diff --git a/programs/Main.hs b/programs/Main.hs index a6105c2..4324290 100644 --- a/programs/Main.hs +++ b/programs/Main.hs @@ -12,7 +12,6 @@ import Brick data St = St { _stEditor :: Editor - , _trans :: Location } makeLenses ''St @@ -32,16 +31,11 @@ handleEvent e st = case e of EvKey KEsc [] -> exitSuccess EvKey KEnter [] -> error $ editStr $ st^.stEditor - EvKey KLeft [MCtrl] -> return $ st & trans %~ (<> (Location (-1, 0))) - EvKey KRight [MCtrl] -> return $ st & trans %~ (<> (Location (1, 0))) - EvKey KUp [MCtrl] -> return $ st & trans %~ (<> (Location (0, -1))) - EvKey KDown [MCtrl] -> return $ st & trans %~ (<> (Location (0, 1))) ev -> return $ st & stEditor %~ (editEvent ev) initialState :: St initialState = St { _stEditor = editor (Name "edit") "" - , _trans = Location (0, 0) } theApp :: App St Event