From 357df394319a608ddf5ef1e27735624c6a2228f3 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Wed, 16 Sep 2020 21:05:14 -0400
Subject: [PATCH] test connection

---
 test.hs | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/test.hs b/test.hs
index 13ab547..0401c83 100644
--- a/test.hs
+++ b/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"