mkFlagDir :: String -- ^ The long flag name.
          -> String -- ^ The default directory.
          -> String -- ^ The help message.
          -> Experiment F.FlagSpec
mkFlagDir name def help = mkFlag name help $ F.FDir def
mkFlagDir :: String -- ^ The long flag name.
          -> String -- ^ The default directory.
          -> String -- ^ The help message.
          -> Experiment F.FlagSpec
mkFlagDir name def help = mkFlag name help $ F.FDir def
mkFlagDir name def help = mkFlag name help $ F.FDir def