winningBids auction bids =

winningBids auction = winningBids' (auction ^. raiseAmount) 
winningBids' :: Satoshi -> [Bid] -> [Bid]
winningBids' raiseAmount' bids = 

        | total + (x ^. bidAmount) < (auction ^. raiseAmount) =

        | total + (x ^. bidAmount) < raiseAmount' =

        | total < (auction ^. raiseAmount) =
          let remainder = (auction ^. raiseAmount) - total

        | total < raiseAmount' =
          let remainder = raiseAmount' - total

spec =

spec = do

  describe "winning bids" $ 
    it "determines a sufficient number of winners to fulfill the raise amount" $
      True `shouldBe` True