paramsP :: Parser Params
paramsP = Params
    <$> (many . strArgument)
        (  metavar "WORDS"
        <> help "The words to find anagrams for"
        )
    <*> dictOption where
        dictOption = strOption
            (  long "dict"
            <> metavar "PATH"
            <> help "Path to the dictionary to use"
            )
            <|> pure "/usr/share/dict/words"
paramsP :: Parser Params
paramsP = Params
    <$> (many . strArgument)
        (  metavar "WORDS"
        <> help "The words to find anagrams for"
        )
    <*> dictOption where
        dictOption = strOption
            (  long "dict"
            <> metavar "PATH"
            <> help "Path to the dictionary to use"
            )
            <|> pure "/usr/share/dict/words"
paramsP = Params
    <$> (many . strArgument)
        (  metavar "WORDS"
        <> help "The words to find anagrams for"
        )
    <*> dictOption where
        dictOption = strOption
            (  long "dict"
            <> metavar "PATH"
            <> help "Path to the dictionary to use"
            )
            <|> pure "/usr/share/dict/words"