Fix unused record wild card warning

IntersectMBO · Oct 1, 2020 · 19c69f8 · 19c69f8
1 parent cbe9af0
commit 19c69f8
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/ouroboros-consensus/src/Ouroboros/Consensus/Protocol/PBFT.hs b/ouroboros-consensus/src/Ouroboros/Consensus/Protocol/PBFT.hs
@@ -404,10 +404,8 @@ append :: PBftCrypto c
        -> PBftWindowParams
        -> (SlotNo, PBftVerKeyHash c)
        -> PBftState c -> PBftState c
-append PBftConfig{..} PBftWindowParams{..} =
+append PBftConfig{} PBftWindowParams{..} =
     S.append windowSize . uncurry S.PBftSigner
-  where
-    PBftParams{..} = pbftParams
 
 {-------------------------------------------------------------------------------
   PBFT specific types