 --  {`String', `String'} -> `()'#}
 
 -- aiGetLegalString
--- aiGetVersionMinor
--- aiGetVersionmajor
--- aiGetVersionRevision
+{# fun unsafe aiGetVersionMinor as getVersionMinor
+  {} -> `Int'#}
+{# fun unsafe aiGetVersionMajor as getVersionMajor
+  {} -> `Int'#}
+{# fun unsafe aiGetVersionRevision as getVersionRevision
+  {} -> `Int'#}
 -- aiGetCompileFlags
 -- aiGetMaterialProperty
 -- aiGetMaterialFloatArray

import Graphics.Formats.Assimp.Storable

#include "assimp.h"
#include "typedefs.h"

--withT = with -- http://blog.ezyang.com/2010/06/call-and-fun-marshalling-redux/

peek' :: (Storable b) => Ptr a -> IO b
peek' = peek . castPtr

-- 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
