11 lines
325 B
Haskell
11 lines
325 B
Haskell
import qualified EuphApi.Connection as E
|
|
|
|
main = do
|
|
con <- E.startEuphConnection "euphoria.io" "test"
|
|
printEvents con
|
|
where
|
|
printEvents con = do
|
|
event <- E.getEvent con
|
|
case event of
|
|
E.EuphEvent e -> print e >> putStrLn "" >> printEvents con
|
|
_ -> putStrLn "[] end of events"
|