mirror of
https://github.com/unisonweb/unison.git
synced 2024-10-26 11:07:48 +03:00
expand list of random project names
This commit is contained in:
parent
72e97ad62f
commit
f28bb87d03
@ -111,8 +111,58 @@ generateRandomProjectNames :: IO [ProjectName]
|
||||
generateRandomProjectNames = do
|
||||
baseNames <-
|
||||
RandomShuffle.shuffleM do
|
||||
adjective <- ["happy", "silly"]
|
||||
noun <- ["giraffe", "gorilla"]
|
||||
adjective <-
|
||||
[ "adorable",
|
||||
"beautiful",
|
||||
"charming",
|
||||
"delightful",
|
||||
"excited",
|
||||
"friendly",
|
||||
"gentle",
|
||||
"helpful",
|
||||
"innocent",
|
||||
"jolly",
|
||||
"kind",
|
||||
"lucky",
|
||||
"magnificent",
|
||||
"nice",
|
||||
"outstanding",
|
||||
"pleasant",
|
||||
"quiet",
|
||||
"responsible",
|
||||
"silly",
|
||||
"thoughtful",
|
||||
"useful",
|
||||
"witty"
|
||||
]
|
||||
noun <-
|
||||
[ "alpaca",
|
||||
"blobfish",
|
||||
"camel",
|
||||
"donkey",
|
||||
"earwig",
|
||||
"ferret",
|
||||
"gerbil",
|
||||
"hamster",
|
||||
"ibis",
|
||||
"jaguar",
|
||||
"koala",
|
||||
"lemur",
|
||||
"marmot",
|
||||
"narwhal",
|
||||
"ostrich",
|
||||
"puffin",
|
||||
"quahog",
|
||||
"reindeer",
|
||||
"seahorse",
|
||||
"turkey",
|
||||
"urchin",
|
||||
"vole",
|
||||
"walrus",
|
||||
"yak",
|
||||
"zebra"
|
||||
]
|
||||
|
||||
pure (adjective <> "-" <> noun)
|
||||
|
||||
let namesWithNumbers = do
|
||||
|
Loading…
Reference in New Issue
Block a user