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

import           Data.Char.WCWidth

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