jtdaugherty/brick
1
1
Fork 0
mirror of https://github.com/jtdaugherty/brick.git synced 2024-12-02 11:05:10 +03:00
Code Issues Projects Releases Wiki Activity

Remove unused translation from test program

Browse Source
This commit is contained in:
Jonathan Daugherty 2015-05-16 19:17:25 -07:00
parent d73f892dae
commit a720b498c8
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
programs/Main.hs
View File

@ -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