newTextureFromText :: Window -> Font -> String -> Color -> IO Texture
newTextureFromText w f text c = do
  cTexture <-
    withCFont f $ \cFont ->
      withCString text $ \cText ->
        withColorPtr c $ \cColor -> cNewTextureFromText w cFont cText cColor
  newTexture cTexture
newTextureFromText :: Window -> Font -> String -> Color -> IO Texture
newTextureFromText w f text c = do
  cTexture <-
    withCFont f $ \cFont ->
      withCString text $ \cText ->
        withColorPtr c $ \cColor -> cNewTextureFromText w cFont cText cColor
  newTexture cTexture
newTextureFromText w f text c = do
  cTexture <-
    withCFont f $ \cFont ->
      withCString text $ \cText ->
        withColorPtr c $ \cColor -> cNewTextureFromText w cFont cText cColor
  newTexture cTexture