command_options.hs

instance Options MainOptions where
    defineOptions = 
        MainOptions <$> defineOption optionType_bool a_help
                    <*> defineOption optionType_bool a_version
                    <*> defineOption optionType_string a_path
        where a_help opt = opt { optionLongFlags = ["help"]
                               , optionShortFlags = ['h']
                               }
              a_version opt = opt { optionLongFlags = ["version"]
                                  , optionShortFlags = ['v']
                                  }
              a_path opt = opt { optionLongFlags = ["path"]
                               , optionShortFlags = ['p']
                               }