purr

commit ed2ebc91b859cf7fdaa58720b3cbd09d07b00f02
parent 2889c7e9e7ceb0b4af963c525c60aed4de183d2b
Author: James Eversole <james@eversole.co>
Date:   Mon, 16 Jan 2023 19:21:04 -0600

Longer pure random password offering. Remove some wordlist options.

Diffstat:
M
assets/wordlist.txt
 | 
14
--------------
M
src/Feature/Generation/HTTP.hs
 | 
2
+-

2 files changed, 1 insertion(+), 15 deletions(-)
diff --git a/assets/wordlist.txt b/assets/wordlist.txt
@@ -804,7 +804,6 @@ camper
 campfire
 camping
 campsite
-campus
 canal
 canary
 cancel
@@ -899,7 +898,6 @@ catalyze
 catapult
 cataract
 catatonic
-catcall
 catchable
 catcher
 catching
@@ -910,12 +908,7 @@ catfight
 catfish
 cathedral
 cathouse
-catlike
-catnap
-catnip
-catsup
 cattail
-cattishly
 cattle
 catty
 catwalk
@@ -2179,7 +2172,6 @@ elves
 email
 embargo
 embark
-embassy
 embattled
 embellish
 ember
@@ -3985,7 +3977,6 @@ mortified
 mortify
 mortuary
 mosaic
-mossy
 most
 mothball
 mothproof
@@ -4209,7 +4200,6 @@ ocelot
 octagon
 octane
 october
-octopus
 ogle
 oil
 oink
@@ -4645,7 +4635,6 @@ plating
 platinum
 platonic
 platter
-platypus
 plausible
 plausibly
 playable
@@ -4841,7 +4830,6 @@ print
 prior
 prism
 prison
-prissy
 pristine
 privacy
 private
@@ -4983,7 +4971,6 @@ pushing
 pushover
 pushpin
 pushup
-pushy
 putdown
 putt
 puzzle
@@ -5613,7 +5600,6 @@ sarcastic
 sardine
 sash
 sasquatch
-sassy
 satchel
 satiable
 satin
diff --git a/src/Feature/Generation/HTTP.hs b/src/Feature/Generation/HTTP.hs
@@ -21,5 +21,5 @@ routes = do
   get "/gen" $ do
     genXkcd      <- liftIO $ xkcd
     genOldschool <- liftIO $ oldschool
-    genGibberish <- liftIO $ gibberish 12
+    genGibberish <- liftIO $ gibberish 18
     html $ renderGen genXkcd genOldschool genGibberish