 peek' :: (Storable b) => Ptr a -> IO b
 peek' = peek . castPtr
 
-{#fun unsafe aiImportFile as importFile
-  {`String', cFromEnum `PostProcessSteps'} -> `Scene' peek'*#}
+-- Removing these for now. I don't see any reason to use them. You can't
+-- release resources after using this importFile because you don't get the
+-- pointer.
+-- {#fun unsafe aiImportFile as importFile
+--   {`String', cFromEnum `PostProcessSteps'} -> `Scene' peek'*#}
+-- 
+-- {#fun unsafe aiReleaseImport as releaseImport
+--   {with'* `Scene'} -> `()'#}
 
 -- aiImportFileEx
 -- aiImportFileFromMemory

module Graphics.Formats.Assimp.Fun (
    importFile
  , applyPostProcessing
  , releaseImport
  , getErrorString
  , isExtensionSupported
  , setImportPropertyInteger
  , setImportPropertyFloat
  ) where

import C2HS

--  {`String', `String'} -> `()'#}

-- aiGetLegalString
{# fun unsafe aiGetVersionMinor as getVersionMinor
  {} -> `Int'#}
{# fun unsafe aiGetVersionMajor as getVersionMajor
  {} -> `Int'#}
{# fun unsafe aiGetVersionRevision as getVersionRevision
  {} -> `Int'#}
-- aiGetCompileFlags
-- aiGetMaterialProperty
-- aiGetMaterialFloatArray
