From 70d50561b19b4161b85ec1b00c31e5678502688b Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Fri, 29 Mar 2024 00:59:53 -0400 Subject: Update catchphrases --- fig-frontend/src/Fig/Frontend.hs | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) (limited to 'fig-frontend') 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" -- cgit v1.2.3