diff options
| author | LLLL Colonq <llll@colonq> | 2024-03-29 00:59:53 -0400 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2024-03-29 00:59:53 -0400 |
| commit | 70d50561b19b4161b85ec1b00c31e5678502688b (patch) | |
| tree | 39365fd96e0021c8caa9500624664b846a4e020c /fig-frontend/src/Fig | |
| parent | dec476ab9b8602225964cfa534bb004676ff6419 (diff) | |
Update catchphrases
Diffstat (limited to 'fig-frontend/src/Fig')
| -rw-r--r-- | fig-frontend/src/Fig/Frontend.hs | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/fig-frontend/src/Fig/Frontend.hs b/fig-frontend/src/Fig/Frontend.hs index 943db8f..92a9d04 100644 --- a/fig-frontend/src/Fig/Frontend.hs +++ b/fig-frontend/src/Fig/Frontend.hs @@ -56,7 +56,19 @@ app cfg cmds = do Nothing -> Tw.send $ Tw.text "" Just val -> Tw.send . Tw.text $ decodeUtf8 val , Tw.get "/api/catchphrase" do - let catchphrases = ["foo", "bar", "baz"] :: [Text] + let catchphrases = + [ "vtuber (male)" + , "man of letters" + , "cool guy, online" + , "internet clown man" + , "professional emacs fan" + , "web freak" + , "guy who really likes programming" + , "i use nixos btw" + , "(are these funny or cringe or both?)" + , "haha yay" + , "Joel" + ] :: [Text] i <- randomRIO (0, length catchphrases - 1) case catchphrases ^? ix i of Nothing -> Tw.send $ Tw.text "man of letters" |