module Main where

import Posix
import EdisonPrelude
import qualified Collection as C

data Pair = Pair Int EpochTime

instance Eq Pair where
    Pair a b == Pair a' b' = a == a'

instance Ord Pair where
    Pair a b <= Pair a' b' = b <= b'

main = do
    let sorted = C.insert (Pair 0 0) (C.insert (Pair 1 1) C.empty)
    let (Pair id time) = C.minElem sorted
    let sorted' = C.deleteMin sorted
    putStrLn ("min is id:" ++ (show id) ++ " time:" ++ (show time))