-- effect_name -----------------------------------------------------------------

-- | given a name (the name of the getoptth fn to create), what name shall we
--   use for the function from PCLV Record to OV Record?

effect_name :: (Typeish t) => String -> t
effect_name = convert . (++ "_effect")
effect_name :: (Typeish t) => String -> t
effect_name = convert . (++ "_effect")
effect_name = convert . (++ "_effect")