multiples.hs

genericFunction :: (Show a) -> a -> String
genericFunction thing = show thing

data OneThing = OneThing (deriving Show)
data AnotherThing = AnotherThing (deriving Show)

data MyFunctions = MyFunctions
  { showOne :: OneThing -> String
  , showAnother :: AnotherThing -> String
  }

currentFunctions = MyFunctions
  { showOne = genericFunction
  , showAnother = genericFunction
  }