• Couldn't match type ‘Char’ with ‘CInt’
  Expected: Ptr CInt
    Actual: Ptr Char
• In the first argument of ‘g_unicode_canonical_ordering’, namely
    ‘string'’
  In a stmt of a 'do' block: g_unicode_canonical_ordering string' len
  In the second argument of ‘($)’, namely
    ‘do let len = fromIntegral $ length string
        string' <- packStorableArray string
        g_unicode_canonical_ordering string' len
        freeMem string'
        ....’
 |

|                                  ^^^^^^^