mirror of
https://github.com/bsima/haskell-urbit-api.git
synced 2024-09-11 18:27:08 +03:00
18 lines
308 B
Haskell
18 lines
308 B
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
module Main where
|
|
|
|
import Urbit.Airlock
|
|
|
|
main = do
|
|
let ship = Ship {
|
|
session = Nothing,
|
|
lastEventId = 0,
|
|
url = "http://localhost:8081",
|
|
code = "lidlut-tabwed-pillex-ridrup",
|
|
sseClient = False,
|
|
name = "zod"
|
|
}
|
|
connect ship
|
|
putStrLn "success"
|