Skip to content

Commit

Permalink
ormolu
Browse files Browse the repository at this point in the history
  • Loading branch information
akshaymankar committed Aug 8, 2024
1 parent 0a976b4 commit f1fc011
Show file tree
Hide file tree
Showing 2 changed files with 10 additions and 10 deletions.
6 changes: 3 additions & 3 deletions integration/test/Test/FeatureFlags/User.hs
Original file line number Diff line number Diff line change
Expand Up @@ -24,15 +24,15 @@ testFeatureConferenceCallingForUser = do

-- set user value for both users
for_ [alice, bob] $ \u -> do
void
$ I.putFeatureForUser
void $
I.putFeatureForUser
u
featureName
( object
[ "status" .= "disabled"
]
)
>>= getBody 200
>>= getBody 200
I.getFeatureForUser u featureName `bindResponse` \resp -> do
resp.status `shouldMatchInt` 200
config <- resp.json
Expand Down
14 changes: 7 additions & 7 deletions integration/test/Test/FeatureFlags/Util.hs
Original file line number Diff line number Diff line change
Expand Up @@ -106,10 +106,10 @@ instance Default ConfCalling where

confCalling :: ConfCalling -> Value
confCalling args =
object
$ ["lockStatus" .= s | s <- toList args.lockStatus]
<> ["ttl" .= "unlimited"]
<> [ "status" .= args.status,
"config"
.= object ["useSFTForOneToOneCalls" .= args.sft]
]
object $
["lockStatus" .= s | s <- toList args.lockStatus]
<> ["ttl" .= "unlimited"]
<> [ "status" .= args.status,
"config"
.= object ["useSFTForOneToOneCalls" .= args.sft]
]

0 comments on commit f1fc011

Please sign in to comment.