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