mirror of
https://github.com/bsima/haskell-urbit-api.git
synced 2024-09-11 18:27:08 +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
|
module Main where
|
||||||
|
|
||||||
import System.Exit (exitFailure)
|
import Urbit.Airlock
|
||||||
|
|
||||||
main = do
|
main = do
|
||||||
putStrLn "goodbye world"
|
let ship = Ship {
|
||||||
exitFailure
|
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