withCString :: InUnion fs IO => String -> (C.CString -> Eff fs a) -> Eff fs a
withCString string f = inj (C.withCString string (return . f)) `Then` id
withCString :: InUnion fs IO => String -> (C.CString -> Eff fs a) -> Eff fs a
withCString string f = inj (C.withCString string (return . f)) `Then` id
withCString string f = inj (C.withCString string (return . f)) `Then` id