-- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)-- Edit the ORIGNAL .chs file instead!{-# LINE 1 ".\\HGamer3D\\Bindings\\SFML\\ClassMusic.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}{-# LANGUAGE TypeSynonymInstances #-}-- This source file is part of HGamer3D-- (A project to enable 3D game development in Haskell)-- For the latest info, see http://www.althainz.de/HGamer3D.html-- -- (c) 2011, 2012 Peter Althainz-- -- Licensed under the Apache License, Version 2.0 (the "License");-- you may not use this file except in compliance with the License.-- You may obtain a copy of the License at-- -- http://www.apache.org/licenses/LICENSE-2.0-- -- Unless required by applicable law or agreed to in writing, software-- distributed under the License is distributed on an "AS IS" BASIS,-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.-- See the License for the specific language governing permissions and-- limitations under the License.-- -- ClassMusic.chs-- moduleHGamer3D.Bindings.SFML.ClassMusicwhereimportForeignimportForeign.PtrimportForeign.CimportHGamer3D.Data.HG3DClassimportHGamer3D.Data.VectorimportHGamer3D.Data.ColourimportHGamer3D.Data.AngleimportHGamer3D.Bindings.SFML.Utils{-# LINE 40 ".\\HGamer3D\\Bindings\\SFML\\ClassMusic.chs" #-}importHGamer3D.Bindings.SFML.ClassPtr{-# LINE 41 ".\\HGamer3D\\Bindings\\SFML\\ClassMusic.chs" #-}importHGamer3D.Bindings.SFML.StructHG3DClass{-# LINE 42 ".\\HGamer3D\\Bindings\\SFML\\ClassMusic.chs" #-}{- function Music -}new::IO(HG3DClass)new=alloca$\a1'->new'_a1'>>=\res->peeka1'>>=\a1''->return(a1''){-# LINE 47 ".\\HGamer3D\\Bindings\\SFML\\ClassMusic.chs" #-}{- function ~Music -}delete::HG3DClass->IO()deletea1=withHG3DClassa1$\a1'->delete'_a1'>>=\res->return(){-# LINE 51 ".\\HGamer3D\\Bindings\\SFML\\ClassMusic.chs" #-}{- function openFromFile -}openFromFile::HG3DClass->String->IO(Bool)openFromFilea1a2=withHG3DClassa1$\a1'->withCStringa2$\a2'->alloca$\a3'->openFromFile'_a1'a2'a3'>>=\res->peekBoolUtila3'>>=\a3''->return(a3''){-# LINE 57 ".\\HGamer3D\\Bindings\\SFML\\ClassMusic.chs" #-}foreignimportccallsafe"HGamer3D\\Bindings\\SFML\\ClassMusic.chs.h sfml_msc_construct"new'_::((HG3DClassPtr)->(IO()))foreignimportccallsafe"HGamer3D\\Bindings\\SFML\\ClassMusic.chs.h sfml_msc_destruct"delete'_::((HG3DClassPtr)->(IO()))foreignimportccallsafe"HGamer3D\\Bindings\\SFML\\ClassMusic.chs.h sfml_msc_openFromFile"openFromFile'_::((HG3DClassPtr)->((PtrCChar)->((PtrCInt)->(IO()))))