listSettingsOpts :: Maybe OptEnum -> T.Text
listSettingsOpts Nothing   = T.unlines $ map optName [minBound..maxBound]
listSettingsOpts :: Maybe OptEnum -> T.Text
listSettingsOpts Nothing   = T.unlines $ map optName [minBound..maxBound]
listSettingsOpts Nothing   = T.unlines $ map optName [minBound..maxBound]