about summary refs log tree commit diff
path: root/users/glittershark/owothia
diff options
context:
space:
mode:
Diffstat (limited to 'users/glittershark/owothia')
-rw-r--r--users/glittershark/owothia/src/Main.hs6
1 files changed, 5 insertions, 1 deletions
diff --git a/users/glittershark/owothia/src/Main.hs b/users/glittershark/owothia/src/Main.hs
index bdb8d8802a86..6c954b7c3f72 100644
--- a/users/glittershark/owothia/src/Main.hs
+++ b/users/glittershark/owothia/src/Main.hs
@@ -13,6 +13,7 @@ import qualified Data.ByteString as BS
 import           System.Random
 import           System.Envy
 import           Data.Maybe
+import qualified Data.Text
 --------------------------------------------------------------------------------
 
 data Config = Config
@@ -85,7 +86,10 @@ instance Random OwoType where
   randomR = const random
 
 owo :: OwoType -> Text -> Text
-owo Noun n = "I'm a " <> n <> " owo"
+owo Noun n =
+          if "o" `Data.Text.isSuffixOf` n
+          then "I'm a " <> n <> "wo"
+          else "I'm a " <> n <> " owo"
 owo Verb v = v <> " me owo"
 
 pickOwo :: OwoType -> POS Tag -> Maybe Text