module Data.Char.WCWidth.Extended
    ( module Data.Char.WCWidth
    , wcstrwidth
    ) where

import Data.Char.WCWidth

wcstrwidth :: String -> Int
wcstrwidth :: String -> Int
wcstrwidth = forall (t :: * -> *) a. (Foldable t, Num a) => t a -> a
sum forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a b. (a -> b) -> [a] -> [b]
map Char -> Int
wcwidth