-- GENERATED by C->Haskell Compiler, version 0.16.4 Crystal Seed, 24 Jan 2009 (Haskell) -- Edit the ORIGNAL .chs file instead! {-# LINE 1 "lib/CPython/Types/Code.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-} -- Copyright (C) 2009 John Millikin <jmillikin@gmail.com> -- -- This program is free software: you can redistribute it and/or modify -- it under the terms of the GNU General Public License as published by -- the Free Software Foundation, either version 3 of the License, or -- any later version. -- -- This program is distributed in the hope that it will be useful, -- but WITHOUT ANY WARRANTY; without even the implied warranty of -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -- GNU General Public License for more details. -- -- You should have received a copy of the GNU General Public License -- along with this program. If not, see <http://www.gnu.org/licenses/>. module CPython.Types.Code ( Code , codeType ) where import CPython.Internal newtype Code = Code (ForeignPtr Code) instance Object Code where toObject (Code x) = SomeObject x fromForeignPtr = Code instance Concrete Code where concreteType _ = codeType codeType :: Type codeType = unsafePerformIO $ let {res = codeType'_} in peekStaticObject res >>= \res' -> return (res') {-# LINE 37 "lib/CPython/Types/Code.chs" #-} foreign import ccall unsafe "CPython/Types/Code.chs.h hscpython_PyCode_Type" codeType'_ :: (Ptr ())