c2hs-0.22.1: tests/bugs/issue-98/Issue98.chs

module Main where

import Foreign.C.Types
import Foreign.C.String

#include "issue98.h"

{#fun pure identichar  as ^ { `Char' } -> `Char' #}
{#fun pure identiuchar as ^ { `Char' } -> `Char' #}
{#fun pure identischar as ^ { `Char' } -> `Char' #}

main :: IO ()
main = print $ map ($ 'A') [identichar, identiuchar, identischar]