{-# LINE 1 "src/SFML/Graphics/FontInfo.hsc" #-} module SFML.Graphics.FontInfo {-# LINE 2 "src/SFML/Graphics/FontInfo.hsc" #-} ( FontInfo(..) ) where import Control.Applicative ((<$>), (<*>)) import Foreign.C.String import Foreign.Ptr import Foreign.Storable {-# LINE 13 "src/SFML/Graphics/FontInfo.hsc" #-} {-# LINE 16 "src/SFML/Graphics/FontInfo.hsc" #-} data FontInfo = FontInfo { family :: String } deriving (Show) instance Storable FontInfo where sizeOf _ = (8) {-# LINE 26 "src/SFML/Graphics/FontInfo.hsc" #-} alignment _ = 8 {-# LINE 27 "src/SFML/Graphics/FontInfo.hsc" #-} peek ptr = FontInfo <$> peekCString (castPtr ptr) poke ptr fontInfo = withCString (family fontInfo) $ \cstring -> poke (castPtr ptr) cstring