parseOpt :: T.Text -> Maybe OptEnum
parseOpt txt = listToMaybe [ oe | oe<-[minBound..maxBound], optName oe==txt ]
parseOpt :: T.Text -> Maybe OptEnum
parseOpt txt = listToMaybe [ oe | oe<-[minBound..maxBound], optName oe==txt ]
parseOpt txt = listToMaybe [ oe | oe<-[minBound..maxBound], optName oe==txt ]