module Scientist.Candidate ( Candidate(..) ) where newtype Candidate a = Candidate { Candidate a -> a unCandidate :: a }