{-# LINE 1 "Data/Text/ICU/Normalize/Internal.hsc" #-}
{-# LANGUAGE CPP, DeriveDataTypeable, ForeignFunctionInterface #-}
-- |
-- Module      : Data.Text.ICU.Normalize.Internal
-- Copyright   : (c) 2010 Bryan O'Sullivan
--
-- License     : BSD-style
-- Maintainer  : bos@serpentine.com
-- Stability   : experimental
-- Portability : GHC

module Data.Text.ICU.Normalize.Internal
    (
      UNormalizationCheckResult
    , toNCR
    ) where



import Foreign.C.Types (CInt)

type UNormalizationCheckResult = CInt

toNCR :: UNormalizationCheckResult -> Maybe Bool
toNCR :: UNormalizationCheckResult -> Maybe Bool
toNCR (UNormalizationCheckResult
0)    = Bool -> Maybe Bool
forall a. a -> Maybe a
Just Bool
False
{-# LINE 25 "Data/Text/ICU/Normalize/Internal.hsc" #-}
toNCR (2) = Nothing
{-# LINE 26 "Data/Text/ICU/Normalize/Internal.hsc" #-}
toNCR (1)   = Just True
{-# LINE 27 "Data/Text/ICU/Normalize/Internal.hsc" #-}
toNCR _                    = error "toNormalizationCheckResult"