node: hlint

IntersectMBO · Aug 12, 2022 · 3836ff7 · 3836ff7
1 parent 62595bd
commit 3836ff7
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/cardano-cli/src/Cardano/CLI/Shelley/Run/Genesis.hs b/cardano-cli/src/Cardano/CLI/Shelley/Run/Genesis.hs
@@ -913,10 +913,7 @@ buildPoolParams nw dir index specifiedRelays = do
  where
    lookupPoolRelay
      :: Map Word [Ledger.StakePoolRelay] -> Seq.StrictSeq Ledger.StakePoolRelay
-   lookupPoolRelay m =
-     case Map.lookup index m of
-       Just spRelays -> Seq.fromList spRelays
-       Nothing -> mempty
+   lookupPoolRelay m = maybe mempty Seq.fromList (Map.lookup index m)
 
    strIndex = show index
    poolColdVKF = dir </> "cold" ++ strIndex ++ ".vkey"