mock/Util.hs


1
2
3
4
5
6
7
8

module Util where


newtype Opaque a = Opaque { unOpaque :: a }
  deriving (Eq, Ord)

instance Show (Opaque a) where
    show _ = "Opaque"