Garmelon/euph-api
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add EventType type

Browse source 
Also improve documentation
This commit is contained in:
Joscha 2018-02-09 18:03:06 +00:00
parent 9d25ad5fba
commit e427e8df90
2 changed files with 63 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test/euphtest.hs
View file

@ -7,5 +7,5 @@ main = do
printEvents con = do
event <- E.getEvent con
case event of
Just e -> print e >> putStrLn "" >> printEvents con
Nothing -> putStrLn "[] end of events"
E.EuphEvent e -> print e >> putStrLn "" >> printEvents con
_ -> putStrLn "[] end of events"