hasOptFlag :: String -> OptFlags -> Bool
hasOptFlag name opts = name `S.member` opts
hasOptFlag :: String -> OptFlags -> Bool
hasOptFlag name opts = name `S.member` opts
hasOptFlag name opts = name `S.member` opts