29 lines
664 B
Haskell
29 lines
664 B
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
{-# LANGUAGE DataKinds #-}
|
|
{-# LANGUAGE KindSignatures #-}
|
|
|
|
module Network.Stellar.Horizon
|
|
( HorizonServer
|
|
, publicHorizon
|
|
, testHorizon
|
|
, httpServer
|
|
, httpsServer
|
|
)
|
|
where
|
|
|
|
import Data.Text
|
|
import Network.HTTP.Req (Url, Scheme(..), http, https)
|
|
|
|
type HorizonServer (scheme :: Scheme) = Url scheme
|
|
|
|
publicHorizon :: HorizonServer 'Https
|
|
publicHorizon = httpsServer "horizon.stellar.org"
|
|
|
|
testHorizon :: HorizonServer 'Https
|
|
testHorizon = httpsServer "horizon-testnet.stellar.org"
|
|
|
|
httpServer :: Text -> HorizonServer 'Http
|
|
httpServer = http
|
|
|
|
httpsServer :: Text -> HorizonServer 'Https
|
|
httpsServer = https
|