setSettingsOpt :: Opt a -> a -> Settings -> Settings
setSettingsOpt Opt{..} x (Settings hm) =
                  Settings $ HM.insert (optName opt_enum) (opt_to x) hm
setSettingsOpt :: Opt a -> a -> Settings -> Settings
setSettingsOpt Opt{..} x (Settings hm) =
                  Settings $ HM.insert (optName opt_enum) (opt_to x) hm
setSettingsOpt Opt{..} x (Settings hm) =
                  Settings $ HM.insert (optName opt_enum) (opt_to x) hm