Vergara_Tech/zenith
Vergara_Tech/zenith
2
0
Fork 0
Code Issues 32 Pull requests Projects Releases 6 Packages Wiki Activity

Make RPC port configurable

Browse source
This commit is contained in:
Rene Vergara 2024-07-24 16:13:13 -05:00
parent cbcf7c9c8c
commit 8ba1dfa7c7
Signed by: pitmutt
GPG key ID: 65122AD495A7F5B2
2 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
app/Server.hs
View file

@ -19,5 +19,5 @@ main = do
nodePort <- require config "nodePort" nodePort <- require config "nodePort"
let myConfig = Config dbFilePath zebraHost zebraPort nodeUser nodePwd nodePort let myConfig = Config dbFilePath zebraHost zebraPort nodeUser nodePwd nodePort
let ctx = authenticate myConfig :. EmptyContext let ctx = authenticate myConfig :. EmptyContext
run 8081 $ run nodePort $
serveWithContext (Proxy :: Proxy ZenithRPC) ctx (zenithServer myConfig) serveWithContext (Proxy :: Proxy ZenithRPC) ctx (zenithServer myConfig)

8
src/Zenith/RPC.hs
View file

@ -25,9 +25,9 @@ import Zenith.Types
) )
type ZenithRPC type ZenithRPC
= "status" :> Get '[ JSON] Value :<|> ReqBody '[ JSON] RpcCall :> Post = "status" :> Get '[ JSON] Value :<|> BasicAuth "zenith-realm" Bool :> ReqBody
'[ JSON] '[ JSON]
(RpcResponse Value) RpcCall :> Post '[ JSON] (RpcResponse Value)
zenithServer :: Config -> Server ZenithRPC zenithServer :: Config -> Server ZenithRPC
zenithServer config = getinfo :<|> handleRPC zenithServer config = getinfo :<|> handleRPC
@ -39,8 +39,8 @@ zenithServer config = getinfo :<|> handleRPC
[ "version" .= ("0.7.0.0-beta" :: String) [ "version" .= ("0.7.0.0-beta" :: String)
, "network" .= ("testnet" :: String) , "network" .= ("testnet" :: String)
] ]
handleRPC :: RpcCall -> Handler (RpcResponse Value) handleRPC :: Bool -> RpcCall -> Handler (RpcResponse Value)
handleRPC req = handleRPC isAuth req =
case method req of case method req of
UnknownMethod -> UnknownMethod ->
return $ return $