maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix(owothia): Add " to stopword list

Browse source 
how *this* got classified as a verb I will never understand.

Change-Id: I1ae0c5092b0f4371fb191e19f576dac89fb941ab
Reviewed-on: https://cl.tvl.fyi/c/depot/+/1250
Tested-by: BuildkiteCI
Reviewed-by: isomer <isomer@tvl.fyi>
This commit is contained in:
Griffin Smith 2020-07-17 10:17:22 -04:00 • committed by glittershark
parent b32274120c
commit 8138621b11
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
users/glittershark/owothia/src/Main.hs
View file

@ -36,6 +36,7 @@ instance FromEnv Config where
stopWord :: Text -> Bool stopWord :: Text -> Bool
stopWord "'s" = True stopWord "'s" = True
stopWord "\"" = True
stopWord "is" = True stopWord "is" = True
stopWord "are" = True stopWord "are" = True
stopWord "am" = True stopWord "am" = True
@ -103,7 +104,7 @@ main = do
conf <- either fail pure =<< decodeEnv conf <- either fail pure =<< decodeEnv
tagger <- defaultTagger tagger <- defaultTagger
state <- newIORef $ not . isJust $ (conf ^. nickservPassword) state <- newIORef $ not . isJust $ (conf ^. nickservPassword)
let nick = fromMaybe "owothia" (conf ^. ircNick) let nick = fromMaybe "owothia" (conf ^. ircNick)
conn = conn =
plainConnection (conf ^. ircServer) (conf ^. ircPort) plainConnection (conf ^. ircServer) (conf ^. ircPort)
& realname .~ "Owothia Revströwö" & realname .~ "Owothia Revströwö"