gistfile1.hs

data Gender = Male | Female

data Person = Person { name :: String
                     , gender :: Gender
                     , doSomething :: Bool -> Bool
                     }

bill = Person { name = "Bill"
              , gender = Male
              , doSomething = not
              }

main = do print $ (doSomething bill) True -- Use their "doSomething" function on True
          print $ name bill -- Their name