diff options
Diffstat (limited to 'fig-frontend')
| -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" |