on master help sign in
Remove unneeded inline rules for wctwidth, wctlwidth
222f2bdJonathan Daugherty
src/Graphics/Text/Width.hs−2
@@ -25,11 +25,9 @@ wcswidth = foldl' (\l c -> wcwidth c + l) 0
25
25
26wctwidth :: T.Text -> Int
26wctwidth :: T.Text -> Int
27wctwidth = T.foldl' (\l c -> wcwidth c + l) 0
27wctwidth = T.foldl' (\l c -> wcwidth c + l) 0
28−{-# INLINE [1] wctwidth #-}
29
28
30wctlwidth :: TL.Text -> Int
29wctlwidth :: TL.Text -> Int
31wctlwidth = TL.foldl' (\l c -> wcwidth c + l) 0
30wctlwidth = TL.foldl' (\l c -> wcwidth c + l) 0
32−{-# INLINE [1] wctlwidth #-}
33
31
34{-# RULES
32{-# RULES
35"wcswidth/unpack" forall x. wcswidth (T.unpack x) = wctwidth x
33"wcswidth/unpack" forall x. wcswidth (T.unpack x) = wctwidth x