1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
{-# LANGUAGE EmptyDataDecls #-}
-- |
-- Module : Data.Text.ICU.Break.Internal
-- Copyright : (c) 2010 Bryan O'Sullivan
--
-- License : BSD-style
-- Maintainer : bos@serpentine.com
-- Stability : experimental
-- Portability : GHC
module Data.Text.ICU.Break.Types
(
BreakIterator(..)
, UBreakIterator
) where
import Data.IORef (IORef)
import Data.Int (Int32)
import Data.Text (Text)
import Foreign.ForeignPtr (ForeignPtr)
-- A boundary breaker.
data BreakIterator a = BR {
brText :: IORef Text
, brStatus :: Int32 -> a
, brIter :: ForeignPtr UBreakIterator
}
data UBreakIterator
|
