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