module Unicode.Char.General.Blocks
( B.Block(..)
, B.BlockDefinition(..)
, block
, B.blockDefinition
)
where
import qualified Unicode.Internal.Char.Blocks as B
{-# INLINE block #-}
block :: Char -> Maybe B.Block
block :: Char -> Maybe Block
block = (Int -> Block) -> Maybe Int -> Maybe Block
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap Int -> Block
forall a. Enum a => Int -> a
toEnum (Maybe Int -> Maybe Block)
-> (Char -> Maybe Int) -> Char -> Maybe Block
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Char -> Maybe Int
B.block