configErrorDisplay :: ConfigError -> Text
configErrorDisplay ce =
  case ce of
    ErrorCmdHandlerKeyWrongNumChars handlerSpec ->
      let
        cmdName' = T.pack $ show $ cmdName handlerSpec
        cmdKey' = T.pack $ show $ cmdKey handlerSpec
      in
        "key for command " <>
        cmdName' <>
        ", key value is " <>
        cmdKey' <>
        ", key must be at least one character long.\n"
    ErrorRefileDestKeyWrongNumChars handlerSpec ->
      let
        name = T.pack $ show $ refileDestName handlerSpec
        key = T.pack $ show $ refileDestKey handlerSpec
      in
        "key for refile destination " <>
        name <>
        ", key value is " <>
        key <>
        ", key must be at least one character long."
    ErrorGitCmdHandlerKeyWrongNumChars handlerSpec ->
      let
        cmdName' = T.pack $ show $ gitCmdName handlerSpec
        cmdKey' = T.pack $ show $ gitCmdKey handlerSpec
      in
        "key for command " <>
        cmdName' <>
        ", key value is " <>
        cmdKey' <>
        ", key must be at least one character long.\n"
configErrorDisplay :: ConfigError -> Text
configErrorDisplay ce =
  case ce of
    ErrorCmdHandlerKeyWrongNumChars handlerSpec ->
      let
        cmdName' = T.pack $ show $ cmdName handlerSpec
        cmdKey' = T.pack $ show $ cmdKey handlerSpec
      in
        "key for command " <>
        cmdName' <>
        ", key value is " <>
        cmdKey' <>
        ", key must be at least one character long.\n"
    ErrorRefileDestKeyWrongNumChars handlerSpec ->
      let
        name = T.pack $ show $ refileDestName handlerSpec
        key = T.pack $ show $ refileDestKey handlerSpec
      in
        "key for refile destination " <>
        name <>
        ", key value is " <>
        key <>
        ", key must be at least one character long."
    ErrorGitCmdHandlerKeyWrongNumChars handlerSpec ->
      let
        cmdName' = T.pack $ show $ gitCmdName handlerSpec
        cmdKey' = T.pack $ show $ gitCmdKey handlerSpec
      in
        "key for command " <>
        cmdName' <>
        ", key value is " <>
        cmdKey' <>
        ", key must be at least one character long.\n"
configErrorDisplay ce =
  case ce of
    ErrorCmdHandlerKeyWrongNumChars handlerSpec ->
      let
        cmdName' = T.pack $ show $ cmdName handlerSpec
        cmdKey' = T.pack $ show $ cmdKey handlerSpec
      in
        "key for command " <>
        cmdName' <>
        ", key value is " <>
        cmdKey' <>
        ", key must be at least one character long.\n"
    ErrorRefileDestKeyWrongNumChars handlerSpec ->
      let
        name = T.pack $ show $ refileDestName handlerSpec
        key = T.pack $ show $ refileDestKey handlerSpec
      in
        "key for refile destination " <>
        name <>
        ", key value is " <>
        key <>
        ", key must be at least one character long."
    ErrorGitCmdHandlerKeyWrongNumChars handlerSpec ->
      let
        cmdName' = T.pack $ show $ gitCmdName handlerSpec
        cmdKey' = T.pack $ show $ gitCmdKey handlerSpec
      in
        "key for command " <>
        cmdName' <>
        ", key value is " <>
        cmdKey' <>
        ", key must be at least one character long.\n"