3 files changed, 10 insertions(+), 6 deletions(-)

M Data/Text/Glyphize/Buffer.hs
M Main.hs
M harfbuzz-pure.cabal

@@ 80,7 80,7 @@ data Buffer = Buffer {
     replacementCodepoint :: Char
     -- ^ the hb_codepoint_t that replaces invalid entries for a given encoding
     -- when adding text to buffer .
-}
+} deriving (Eq, Show, Read)
 
 -- | An empty buffer with sensible default properties.
 defaultBuffer = Buffer {


@@ 100,9 100,9 @@ defaultBuffer = Buffer {
         replacementCodepoint = '\xFFFD'
     }
 
-data ContentType = ContentTypeUnicode | ContentTypeGlyphs deriving (Eq, Show)
-data Direction = DirLTR | DirRTL | DirTTB | DirBTT deriving (Eq, Show)
-data ClusterLevel = ClusterMonotoneGraphemes | ClusterMonotoneChars | ClusterChars deriving (Eq, Show)
+data ContentType = ContentTypeUnicode | ContentTypeGlyphs deriving (Eq, Show, Read)
+data Direction = DirLTR | DirRTL | DirTTB | DirBTT deriving (Eq, Show, Read)
+data ClusterLevel = ClusterMonotoneGraphemes | ClusterMonotoneChars | ClusterChars deriving (Eq, Show, Read)
 
 data GlyphInfo = GlyphInfo {
     codepoint :: Word32,

@@ 2,8 2,11 @@
 module Main where
 
 import "harfbuzz-pure" Data.Text.Glyphize
+import "harfbuzz-pure" Data.Text.Glyphize.Buffer
 
 main :: IO ()
 main = do
-    putStr "Hello, world!\n"
+    buf' <- freeze' defaultBuffer
+    -- buf <- thaw' buf'
+    print "Hello, world"
     -- TODO test I can shape text!

@@ 62,7 62,8 @@ library
   -- Other library packages from which modules are imported.
   build-depends:       base >=4.9 && <5, bytestring, text, text-short, utf8-light
 --                       , freetype2 >= 0.2
-  extra-libraries:     harfbuzz
+  pkgconfig-depends:   harfbuzz
+  cxx-sources:         c-bits/hbc-buffer.c
   
   -- Directories containing source files.
   -- hs-source-dirs: