test connection

This commit is contained in:
Ben Sima 2020-09-16 21:05:14 -04:00
parent c1d295a928
commit 357df39431

15
test.hs
View File

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