Whitespace fixes

IntersectMBO · Apr 8, 2021 · e36d473 · e36d473
1 parent 8ad7514
commit e36d473
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/cardano-db-tool/src/Cardano/Db/Tool/Validate/Balance.hs b/cardano-db-tool/src/Cardano/Db/Tool/Validate/Balance.hs
@@ -81,7 +81,7 @@ getCompactAddress :: Text -> Either Text (CompactAddr c)
 getCompactAddress addrText = case Api.deserialiseAddress (Api.AsAddress Api.AsShelleyAddr) addrText of
     Nothing ->
       case decodeAddressBase58 addrText of
-        Left err ->  Left $ textShow err
+        Left err -> Left $ textShow err
         Right badrr -> Right $ compactAddr (AddrBootstrap $ BootstrapAddress badrr)
     Just (Api.ShelleyAddress n p s) ->
       let addr = Addr n (coerce p) (coerce s)

diff --git a/cardano-db/src/Cardano/Db/Types.hs b/cardano-db/src/Cardano/Db/Types.hs
@@ -112,8 +112,8 @@ showDbInt65 :: DbInt65 -> String
 showDbInt65 i65 =
   case i65 of
     PosInt65 w -> show w
-    NegInt65 0 ->  "0"
-    NegInt65 w ->  '-' : show w
+    NegInt65 0 -> "0"
+    NegInt65 w -> '-' : show w
 
 readRewardType :: Text -> Shelley.RewardType
 readRewardType str =