<commit_before>module Graphics.WebGL.Free (
	WebGL(),
	WebGLF(),
	clear,
	clearColor,
	depthFunc,
	enable,
	viewport
	) where

import Prelude
import Control.Monad.Eff
import Control.Monad.Free
import Graphics.Canvas (Canvas())
import qualified Graphics.WebGL.Raw as R
import Graphics.WebGL.Raw.Types

data WebGLF a
	= Clear GLbitfield a
	| ClearColor GLclampf GLclampf GLclampf GLclampf a
	| DepthFunc GLenum a
	| Enable GLenum a
	| Viewport GLint GLint GLsizei GLsizei a

instance functorWebGLF :: Functor WebGLF where
	map f (Clear mask x) = Clear mask (f x)
	map f (ClearColor r g b a x) = ClearColor r g b a (f x)
	map f (DepthFunc func x) = DepthFunc func (f x)
	map f (Enable cap x) = Enable cap (f x)
	map f (Viewport x y w h a) = Viewport x y w h (f a)<commit_msg>Added runWebGL to Free exports list.<commit_after>module Graphics.WebGL.Free (
	WebGL(),
	WebGLF(),
	runWebGL,
	clear,
	clearColor,
	depthFunc,
	enable,
	viewport
	) where

import Prelude
import Control.Monad.Eff
import Control.Monad.Free
import Graphics.Canvas (Canvas())
import qualified Graphics.WebGL.Raw as R
import Graphics.WebGL.Raw.Types

data WebGLF a
	= Clear GLbitfield a
	| ClearColor GLclampf GLclampf GLclampf GLclampf a
	| DepthFunc GLenum a
	| Enable GLenum a
	| Viewport GLint GLint GLsizei GLsizei a

instance functorWebGLF :: Functor WebGLF where
	map f (Clear mask x) = Clear mask (f x)
	map f (ClearColor r g b a x) = ClearColor r g b a (f x)
	map f (DepthFunc func x) = DepthFunc func (f x)
	map f (Enable cap x) = Enable cap (f x)
	map f (Viewport x y w h a) = Viewport x y w h (f a)
{'fraction_non_alphanumeric': 0.08111533586818757, 'fraction_numerical': 0.0, 'mean_word_length': 3.888544891640867, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '333702', 'n_tokens_mistral': 598, 'n_tokens_neox': 586, 'n_words': 229}