nuttycom/aftok - Change F2XLL7XWGUV4TJD4X2MJADYAQHCSB4HD2TPPEYVHEKHOQIOOFISAC

Remove Ord Bid & sort in favor of sortBy

This was not a sensible type to have an Ord instance.

Created by Kris Nuttycombe on October 18, 2015

F2XLL7XWGUV4TJD4X2MJADYAQHCSB4HD2TPPEYVHEKHOQIOOFISAC

Dependencies

In channels

main

Change contents

Replacement in lib/Aftok/Auction.hs at line 34 [5.5084]

∅:D[3.276] → [4.123:146]

B:BD[5.5405] → [4.123:146]

B:BD[4.146] → [2.271:286]

∅:D[2.286] → [4.162:195]

B:BD[4.162] → [4.162:195]

B:BD[4.195] → [2.287:297]

∅:D[2.297] → [6.193:241]

B:BD[3.288] → [6.193:241]

B:BD[6.241] → [7.52:99]

∅:D[7.99] → [6.301:342]

B:BD[6.301] → [6.301:342]

instance Ord Bid where
  (<=) b1 b2 =
    costRatio b1 <= costRatio b2
    where
      secs bid = toRational $ bid ^. bidSeconds
      btc  bid = toRational $ bid ^. bidAmount
      costRatio bid = secs bid / btc bid

[3.276]

[4.293]

bidOrder :: Bid -> Bid -> Ordering
bidOrder =
  comparing costRatio
  where
    secs bid = toRational $ bid ^. bidSeconds
    btc  bid = toRational $ bid ^. bidAmount
    costRatio bid = secs bid / btc bid

Replacement in lib/Aftok/Auction.hs at line 62 [5.5084]
B:BD[4.1147] → [8.159:195]
```
  in  takeWinningBids 0 $ sort bids
```
[4.1147]
```
  in  takeWinningBids 0 $ sortBy bidOrder bids
```

Remove Ord Bid & sort in favor of sortBy

Dependencies

In channels

Change contents

Replacement in lib/Aftok/Auction.hs at line 34 [5.5084]

Replacement in lib/Aftok/Auction.hs at line 62 [5.5084]