GI.Secret fails to generate bindings for Schema::new

[moll]

Hey,

As you asked, reminding you to look into why Schema::new binding generation fails in https://hackage.haskell.org/package/gi-secret-0.0.11/docs/src/GI.Secret.Structs.Schema.html#schemaRef.

Thank you in advance for fixing it!

[moll]

I got around this for now with a C file:

app.cabal:

c-sources: secrets.c
pkgconfig-depends: libsecret-1

secrets.c:

#include <libsecret/secret.h>

const SecretSchema schema = {
	"com.example",
	SECRET_SCHEMA_NONE,
	{
		{"environment", SECRET_SCHEMA_ATTRIBUTE_STRING},
		{NULL, 0},
	}
};

Secrets.hs:

import qualified Data.GI.Base as Gi
import System.IO.Unsafe (unsafePerformIO)

{-# NOINLINE sessionSchema #-}
schema :: Secret.Schema
schema = Secret.Schema $ unsafePerformIO $ Gi.newManagedPtr_ schema'

foreign import ccall unsafe "&schema" schema' :: Ffi.Ptr Secret.Schema

Then call GI.Secret.passwordStoreSync normally, passing schema from above.