mirror of
https://github.com/bsima/haskell-urbit-api.git
synced 2024-08-17 14:00:31 +03:00
test connection
This commit is contained in:
parent
c1d295a928
commit
357df39431
15
test.hs
15
test.hs
@ -1,7 +1,16 @@
|
||||
{-# LANGUAGE OverloadedStrings #-}
|
||||
|
||||
module Main where
|
||||
|
||||
import System.Exit (exitFailure)
|
||||
import Urbit.Airlock
|
||||
|
||||
main = do
|
||||
putStrLn "goodbye world"
|
||||
exitFailure
|
||||
let ship = Ship {
|
||||
session = Nothing,
|
||||
lastEventId = 0,
|
||||
url = "http://localhost:8081",
|
||||
code = "lidlut-tabwed-pillex-ridrup",
|
||||
sseClient = False
|
||||
}
|
||||
connect ship
|
||||
putStrLn "success"
|
||||
|
Loading…
Reference in New Issue
Block a user