~alcinnz/haskell-stylist: Test & fix rendering of Ethiopian 1.

2 files changed, 2 insertions(+), 1 deletions(-)

M src/Data/CSS/Preprocessor/Text/CounterStyle.hs
M test/Test.hs

M src/Data/CSS/Preprocessor/Text/CounterStyle.hs => src/Data/CSS/Preprocessor/Text/CounterStyle.hs +1 -1

@@ 260,7 260,7 @@ counterRenderCore CounterStyle {
     markers' = map snd markers
 -- Following https://w3c.github.io/csswg-drafts/css-counter-styles-3/#ethiopic-numeric-counter-style
 -- 1. If the number is 1, return "፩" (U+1369).
-counterRenderCore CounterStyle { system = Ethiopic, symbols = (sym:_) } 1 = sym
+counterRenderCore CounterStyle { system = Ethiopic, symbols = (_:sym:_) } 1 = sym
 counterRenderCore CounterStyle {
         system = Ethiopic, symbols = unitSyms, additiveSymbols = tenSyms
     } x = Txt.concat $ renderPairs True $

M test/Test.hs => test/Test.hs +1 -0

@@ 710,6 710,7 @@ spec = do
             counterRender 119 `shouldBe` "一百一十九"
             counterRender 120 `shouldBe` "一百二十"
         it "Handles ethiopian numbering system" $ do
+            Ctr.counterRender Ctr.ethiopic 1 `shouldBe` "፩"
             Ctr.counterRender Ctr.ethiopic 100 `shouldBe` "፻"
             Ctr.counterRender Ctr.ethiopic 78010092 `shouldBe` "፸፰፻፩፼፺፪"
             Ctr.counterRender Ctr.ethiopic 780100000092 `shouldBe` "፸፰፻፩፼፼፺፪"