4 files changed, 17 insertions(+), 4 deletions(-)

M Graphics/Text/Font/Choose/Pattern.hs
M Graphics/Text/Font/Choose/Value.hs
M Main.hs
M fontconfig-pure.cabal

@@ 86,7 86,7 @@ withPattern pat cb = withNewPattern $ \pat' -> do
             (fcPatternAdd_ pat' obj' (strength == Strong) True)
     cb pat'
 -- Does Haskell FFI support unboxed structs? Do I really need to write a C wrapper?
-foreign import ccall "my_FCPatternAdd" fcPatternAdd_ ::
+foreign import ccall "my_FcPatternAdd" fcPatternAdd_ ::
     Pattern_ -> CString -> Bool -> Bool -> Value_ -> IO Bool
 
 patternAsPointer :: Pattern -> IO Pattern_

@@ 38,7 38,7 @@ instance Hashable Value
 
 type Value_ = Ptr Int
 
-foreign import ccall "sizeof_Value" value'Size :: Int
+foreign import ccall "size_value" value'Size :: Int
 pokeUnion ptr x = castPtr (ptr `advancePtr` 1) `poke` x
 
 withValue :: Value -> (Value_ -> IO a) -> IO a

@@ 1,4 1,17 @@
+{-# LANGUAGE PackageImports #-}
 module Main where
 
+import "fontconfig-pure" Graphics.Text.Font.Choose as Font
+
+import System.Environment (getArgs)
+
 main :: IO ()
-main = putStrLn "Hello, Haskell!"
+main = do
+    print "a"
+    args <- getArgs
+    print "b"
+    let query = nameParse $ case args of {
+        [] -> "serif";
+        words -> unwords words}
+    print "c"
+    print query

@@ 92,7 92,7 @@ executable fontconfig-pure
   -- other-extensions:
 
   -- Other library packages from which modules are imported.
-  build-depends:       base >=4.12 && <4.13
+  build-depends:       base >=4.12 && <4.13, fontconfig-pure
 
   -- Directories containing source files.
   -- hs-source-dirs: