Apply suggestions from code review

Co-authored-by: Edmund Noble <[email protected]>

Author: larskuhtz

src/Chainweb/BlockHeader/Internal.hs

@@ -1156,7 +1156,7 @@ newForkState as p targetFork
     vote = curNumber < targetFork
     cur = view (parentHeader . blockForkState) p
     curNumber = view (parentHeader . blockForkNumber) p
-    curVotes = view (parentHeader . blockForkVotes ) p
+    curVotes = view (parentHeader . blockForkVotes) p
     allParentVotes = view (parentHeader . blockForkVotes) <$> (p : HM.elems as)
 
 genesisForkState :: ForkState

src/Chainweb/BlockHeader/Validation.hs

@@ -750,7 +750,7 @@ prop_block_adjacent_chainIds b
 prop_block_forkVotesReset :: BlockHeader -> Bool
 prop_block_forkVotesReset b
     | skipFeatureFlagValidationGuard v cid h = True
-    | isForkEpochStart b = votes == resetVotes  || votes == addVote resetVotes
+    | isForkEpochStart b = votes == resetVotes || votes == addVote resetVotes
     | otherwise = True
   where
     votes = view blockForkVotes b