~alcinnz/fontconfig-pure

ref: a327c852daa751de8d395ea1412b26ec6ff89a0f fontconfig-pure/Main.hs -rw-r--r-- 348 bytes
a327c852 — Adrian Cochrane Fix linking issues, still has issues decoding patterns. 2 years ago 
                                                                                
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
{-# LANGUAGE PackageImports #-}
module Main where

import "fontconfig-pure" Graphics.Text.Font.Choose as Font

import System.Environment (getArgs)

main :: IO ()
main = do
    print "a"
    args <- getArgs
    print "b"
    let query = nameParse $ case args of {
        [] -> "serif";
        words -> unwords words}
    print "c"
    print query