Report a paste

Please put a quick comment for the admin.

If it looks like spam, the admin will mark it as spam so that the spam filter picks it up in the future.

If the paste contains something private or offensive, it'll probably just be deleted.

No title

newtype Priority = Priority Int
newtype Size = Size Int

instance Monoid Size where
  mempty = Size 0
  mappend a b = Size $ (getNum a) + (getNum b)
    where
      getNum (Size n) = n

instance Monoid Priority where
  mempty = Priority maxBound
  mappend a b = Priority $ (getNum a) `min` (getNum b)
    where
      getNum (Priority n) = n