    {-# 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"