style fixes

This commit is contained in:
dachus 2023-02-08 17:03:02 -05:00
parent abdff98864
commit 738b1a562c

View File

@ -583,8 +583,8 @@
[act [& secure address request] ~ 0] [act [& secure address request] ~ 0]
:: ::
=. connections.state =. connections.state
%- (trace 2 |.("creating local connection {<duct>}}")) %. (~(put by connections.state) duct connection)
(~(put by connections.state) duct connection) (trace 2 |.("creating local connection {<duct>}}"))
:: ::
:_ state :_ state
(subscribe-to-app app.act inbound-request.connection) (subscribe-to-app app.act inbound-request.connection)
@ -613,8 +613,8 @@
=/ connection=outstanding-connection =/ connection=outstanding-connection
[action [authenticated secure address request] ~ 0] [action [authenticated secure address request] ~ 0]
=. connections.state =. connections.state
%- (trace 2 |.("creating connection {<duct>}")) %. (~(put by connections.state) duct connection)
(~(put by connections.state) duct connection) (trace 2 |.("creating connection {<duct>}"))
:: redirect to https if insecure, redirects enabled :: redirect to https if insecure, redirects enabled
:: and secure port live :: and secure port live
:: ::
@ -839,8 +839,8 @@
[~ state] [~ state]
:: ::
=. connections.state =. connections.state
%- (trace 2 |.("connection cancelled {<duct>}")) %. (~(del by connections.state) duct)
(~(del by connections.state) duct) (trace 2 |.("connection cancelled {<duct>}"))
:: ::
?- -.action.u.connection ?- -.action.u.connection
%gen [~ state] %gen [~ state]
@ -1128,8 +1128,7 @@
:: POST methods are used solely for deleting channels :: POST methods are used solely for deleting channels
(on-put-request channel-id request) (on-put-request channel-id request)
:: ::
%- (trace 1 |.("session-not-a-put")) ((trace 1 |.("session-not-a-put")) `state)
[~ state]
:: +on-cancel-request: cancels an ongoing subscription :: +on-cancel-request: cancels an ongoing subscription
:: ::
:: One of our long lived sessions just got closed. We put the associated :: One of our long lived sessions just got closed. We put the associated
@ -1471,8 +1470,8 @@
:: which isn't active. :: which isn't active.
:: ::
=* msg=tape "{<channel-id>} {<subscription-id>}" =* msg=tape "{<channel-id>} {<subscription-id>}"
%- (trace 1 |.("missing-subscription-in-unsubscribe {msg}")) %. $(requests t.requests)
$(requests t.requests) (trace 1 |.("missing-subscription-in-unsubscribe {msg}"))
:: ::
=. gall-moves =. gall-moves
:_ gall-moves :_ gall-moves
@ -1528,7 +1527,6 @@
:_ state :_ state
:_ ~ :_ ~
^- move ^- move
%- (trace 2 |.("leaving subscription to {<app>}"))
:^ duct %pass :^ duct %pass
(subscription-wire channel-id request-id ship app) (subscription-wire channel-id request-id ship app)
[%g %deal [our ship] app `task:agent:gall`[%leave ~]] [%g %deal [our ship] app `task:agent:gall`[%leave ~]]
@ -1888,8 +1886,7 @@
:: verify that this is a valid response on the duct :: verify that this is a valid response on the duct
:: ::
?~ connection-state=(~(get by connections.state) duct) ?~ connection-state=(~(get by connections.state) duct)
%- (trace 1 |.("invalid-outstanding-connection {<duct>}")) ((trace 1 |.("invalid-outstanding-connection {<duct>}")) `state)
[~ state]
:: ::
|^ ^- [(list move) server-state] |^ ^- [(list move) server-state]
:: ::
@ -1897,8 +1894,7 @@
:: ::
%start %start
?^ response-header.u.connection-state ?^ response-header.u.connection-state
%- (trace 1 |.("http-multiple-start {<duct>}")) ((trace 1 |.("http-multiple-start {<duct>}")) error-connection)
error-connection
:: if request was authenticated, extend the session & cookie's life :: if request was authenticated, extend the session & cookie's life
:: ::
=^ response-header sessions.authentication-state.state =^ response-header sessions.authentication-state.state
@ -1912,8 +1908,7 @@
?~ session-id=(session-id-from-request request.inbound) ?~ session-id=(session-id-from-request request.inbound)
:: cookies are the only auth method, so this is unexpected :: cookies are the only auth method, so this is unexpected
:: ::
%- (trace 1 |.("authenticated-without-cookie")) ((trace 1 |.("authenticated-without-cookie")) no-op)
no-op
?. (~(has by sessions) u.session-id) ?. (~(has by sessions) u.session-id)
:: if the session has expired since the request was opened, :: if the session has expired since the request was opened,
:: tough luck, we don't create/revive sessions here :: tough luck, we don't create/revive sessions here
@ -1959,8 +1954,8 @@
:: ::
%continue %continue
?~ response-header.u.connection-state ?~ response-header.u.connection-state
%- (trace 1 |.("http-continue-without-start {<duct>}")) %. error-connection
error-connection (trace 1 |.("http-continue-without-start {<duct>}"))
:: ::
=. connections.state =. connections.state
%- (trace 2 |.("continuing connection {<duct>}}")) %- (trace 2 |.("continuing connection {<duct>}}"))
@ -1990,8 +1985,8 @@
:: remove all outstanding state for this connection :: remove all outstanding state for this connection
:: ::
=. connections.state =. connections.state
%- (trace 2 |.("connection completed {<duct>}")) %. (~(del by connections.state) duct)
(~(del by connections.state) duct) (trace 2 |.("connection completed {<duct>}"))
state state
:: ::
++ error-connection ++ error-connection
@ -2000,8 +1995,8 @@
:: remove all outstanding state for this connection :: remove all outstanding state for this connection
:: ::
=. connections.state =. connections.state
%- (trace 2 |.("connection cancelled due to an error {<duct>}")) %. (~(del by connections.state) duct)
(~(del by connections.state) duct) (trace 2 |.("connection cancelled due to an error {<duct>}"))
:: respond to outside with %error :: respond to outside with %error
:: ::
^- [(list move) server-state] ^- [(list move) server-state]