diff --git a/README.md b/README.md index a0e2eae..1db9d1e 100644 --- a/README.md +++ b/README.md @@ -2,6 +2,8 @@ A silly little meme sketch thingy idk [See this online](https://corviform.gay/wuppie/) +([based on this post](https://straybeetle.tumblr.com/post/697408407612817408)) + ## Sources The floaty heart background is from [this website](https://web.archive.org/web/20090727233551/http://hk.geocities.com/ironterry_crystal/wifeinfo.html) found via [gifcities.org][] diff --git a/src/Main.elm b/src/Main.elm index 0683cb2..0215e6d 100644 --- a/src/Main.elm +++ b/src/Main.elm @@ -46,7 +46,7 @@ viewStr model = case model of let (gender, newSeed) = getPolygenderWithLength regenCount seed genderStr = if regenCount == 75 then "queer platonic partners" else renderPolygender gender - in "do u think a wuppie and a kitties could be " ++ genderStr ++ ",,?" + in "do u think a ouppy and a kittys could be " ++ genderStr ++ ",,?" view : Model -> Html Msg view model =