fix hlint extraneous "do"
commit88d52d5e083cf475fe5ff9732dcc8a28558a5734
authorAgentM <agentm@themactionfaction.com>
dateThu 14 Sep 2017, 17:10 (9 years ago)
parent452ecb2
src/lib/ProjectM36/Client.hs+1−1
@@ -1046,7 +1046,7 @@ withTransaction sessionId conn io successFunc = bracketOnError (pure ()) (const
10461046 eIsDirty <- disconnectedTransactionIsDirty sessionId conn
10471047 case eIsDirty of
10481048 Left err -> pure (Left err)
1049− Right dirty -> do
1049+ Right dirty ->
10501050 if dirty then do
10511051 res <- successFunc
10521052 case res of