things seem to mostly work I guess ???

2020-09-27 17:27:55 +02:00
parent 80455d20ec
commit 9fa180ff6f
5 changed files with 27 additions and 13 deletions
--- a/src/GypsFulvus/PluginStuff.hs
+++ b/src/GypsFulvus/PluginStuff.hs
@ -17,7 +17,7 @@ tooTeToSt a b = tup $ a ♯ "@" ♯ b

 stripCommandPrefix
  :: T.Text -> [T.Text] -> Either [Maybe T.Text] (Maybe T.Text)
-stripCommandPrefix c = uniqueHit . filter (/= Nothing) . map (\cs -> T.stripPrefix cs (c ♯ " "))
+stripCommandPrefix c = uniqueHit . filter (/= Nothing) . map (\cs -> T.stripPrefix (cs ♯ " ") (c ♯ " "))
  where
    uniqueHit cs = if (L.length cs == (1 :: Int)) then Right $ head cs else Left cs