cli :: IO Config
cli = do
  x <- getRecord $ T.append "Translate text from one language to another\
          \ using Yandex Translate API ********\
          \ translator - Yandex Translate API console tool version: "  getAppVersion

  return Config {
    textToTranslate = unHelpful $ text x,
    keyAPI          = unHelpful $ key x,
    fromLang        = fromMaybe defaultLangFrom $ unHelpful $ from x,
    toLang          = fromMaybe defaultLangTo   $ unHelpful $ to x,
    logLevel        = fromMaybe defaultLogLevel $ unHelpful $ logs x,
    logPath         = fromMaybe defaultLogPath  $ unHelpful $ path x,
    onScreen        = fromMaybe defaultOnScreen $ unHelpful $ notify x
   } 
cli :: IO Config
cli = do
  x <- getRecord $ T.append "Translate text from one language to another\
          \ using Yandex Translate API ********\
          \ translator - Yandex Translate API console tool version: "  getAppVersion

  return Config {
    textToTranslate = unHelpful $ text x,
    keyAPI          = unHelpful $ key x,
    fromLang        = fromMaybe defaultLangFrom $ unHelpful $ from x,
    toLang          = fromMaybe defaultLangTo   $ unHelpful $ to x,
    logLevel        = fromMaybe defaultLogLevel $ unHelpful $ logs x,
    logPath         = fromMaybe defaultLogPath  $ unHelpful $ path x,
    onScreen        = fromMaybe defaultOnScreen $ unHelpful $ notify x
   } 
cli = do
  x <- getRecord $ T.append "Translate text from one language to another\
          \ using Yandex Translate API ********\
          \ translator - Yandex Translate API console tool version: "  getAppVersion

  return Config {
    textToTranslate = unHelpful $ text x,
    keyAPI          = unHelpful $ key x,
    fromLang        = fromMaybe defaultLangFrom $ unHelpful $ from x,
    toLang          = fromMaybe defaultLangTo   $ unHelpful $ to x,
    logLevel        = fromMaybe defaultLogLevel $ unHelpful $ logs x,
    logPath         = fromMaybe defaultLogPath  $ unHelpful $ path x,
    onScreen        = fromMaybe defaultOnScreen $ unHelpful $ notify x
   } 