Skip to content

Commit

Permalink
Fixup
Browse files Browse the repository at this point in the history
  • Loading branch information
fisx committed Sep 11, 2019
1 parent 1371976 commit ed28786
Showing 1 changed file with 0 additions and 4 deletions.
4 changes: 0 additions & 4 deletions tools/stern/src/Stern/Intra.hs
Original file line number Diff line number Diff line change
Expand Up @@ -358,7 +358,6 @@ getLegalholdStatus tid = do
(>>= fromResponseBody) . catchRpcErrors $ rpc' "galley" gly
( method GET
. paths ["/i/teams", toByteString' tid, "features", "legalhold"]
. expect2xx
)
where
fromResponseBody :: Response (Maybe LByteString) -> Handler SetLegalHoldStatus
Expand All @@ -376,7 +375,6 @@ setLegalholdStatus tid status = do
. paths ["/i/teams", toByteString' tid, "features", "legalhold"]
. lbytes (encode $ toRequestBody status)
. contentJson
. expect2xx
)
where
toRequestBody SetLegalHoldDisabled = LegalHoldTeamConfig LegalHoldDisabled
Expand All @@ -389,7 +387,6 @@ getSSOStatus tid = do
(>>= fromResponseBody) . catchRpcErrors $ rpc' "galley" gly
( method GET
. paths ["/i/teams", toByteString' tid, "features", "sso"]
. expect2xx
)
where
fromResponseBody :: Response (Maybe LByteString) -> Handler SetSSOStatus
Expand All @@ -407,7 +404,6 @@ setSSOStatus tid status = do
. paths ["/i/teams", toByteString' tid, "features", "sso"]
. lbytes (encode $ toRequestBody status)
. contentJson
. expect2xx
)
where
toRequestBody SetSSODisabled = SSOTeamConfig SSODisabled
Expand Down

0 comments on commit ed28786

Please sign in to comment.