Skip to content

haskell-gargantext
haskell-gargantext
Commit 0143f243 authored by Alfredo Di Napoli's avatar Alfredo Di Napoli
2 Browse files
Options

Fix step1c again

parent 43901901
Pipeline #6831 failed with stages
          in 53 minutes and 4 seconds
          Show whitespace changes
          Inline Side-by-side
          Showing with 1 addition and 1 deletion
          src/Gargantext/Core/Text/Terms/Mono/Stem/Internal/GargPorter.hs
          View file @ 0143f243
          ...@@ -127,7 +127,7 @@ step1b = either identity afterStep1b . beforeStep1b ...@@ -127,7 +127,7 @@ step1b = either identity afterStep1b . beforeStep1b
          step1c :: [Char] -> [Char] step1c :: [Char] -> [Char]
          step1c word step1c word
          | length word > 2 && List.last word == 'y' && isConsonant word (List.length word - 2) | length word > 2 && List.last word == 'y' && isConsonant word (List.length word - 2)
          = fromMaybe word $ replaceEnd containsVowel word "y" "i" = List.init word <> "i"
          | otherwise | otherwise
          = word = word
          ......
          Markdown is supported
          0% or
          You are about to add 0 people to the discussion. Proceed with caution.
          Finish editing this message first!
          Please register or to comment