diff --git a/app/Main.hs b/app/Main.hs
index d71aedf..0c336ed 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -26,32 +26,32 @@ commands = hsubparser
          (   watch . fromList <$> some
                (DomainName <$> strArgument
                  (  metavar "DOMAIN..."
-                 <> help "Domain(s) that will be watched."
+                 <> help "Domain(s) that will be watched"
                  <> completer domainCompleter
                  )
                )
          <|> flag' (watch =<< domains)
                (  long  "all"
                <> short 'a'
-               <> help  "Watch all domains including NSGlobalDomain."
+               <> help  "Watch all domains including NSGlobalDomain"
                )
          )
-         $ progDesc "Watch domain(s) for changes."
+         $ progDesc "Watch domain(s) for changes"
        )
   <> command "domains"
        (info
          (pure printDomains)
-         (progDesc "List all domains.")
+         (progDesc "List all domains")
        )
   <> command "keys"
        (info
          (printKeys . DomainName <$> strArgument
            (  metavar "DOMAIN"
-           <> help "A domain for which to list keys."
+           <> help "A domain for which to list keys"
            <> completer domainCompleter
            )
          )
-         $ progDesc "List the current keys in a domain."
+         $ progDesc "List the current keys in a domain"
        )
   )
     where