diff options
| author | Joshua Rahm <joshua.rahm@colorado.edu> | 2014-03-20 01:16:40 -0600 |
|---|---|---|
| committer | Joshua Rahm <joshua.rahm@colorado.edu> | 2014-03-20 01:16:40 -0600 |
| commit | a006a8dfc1d30a12160346da3c0ece4460b49966 (patch) | |
| tree | 39628d52510f5c587735494a26e155c97dc6ce0b /Graphics/Glyph/Util.hs | |
| parent | acd306c98a062be220fd52a44500f318a3c7b885 (diff) | |
| download | earths-ring-a006a8dfc1d30a12160346da3c0ece4460b49966.tar.gz earths-ring-a006a8dfc1d30a12160346da3c0ece4460b49966.tar.bz2 earths-ring-a006a8dfc1d30a12160346da3c0ece4460b49966.zip | |
updated to add particles
Diffstat (limited to 'Graphics/Glyph/Util.hs')
| -rw-r--r-- | Graphics/Glyph/Util.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/Graphics/Glyph/Util.hs b/Graphics/Glyph/Util.hs index 550dd30..d657aa3 100644 --- a/Graphics/Glyph/Util.hs +++ b/Graphics/Glyph/Util.hs @@ -3,6 +3,9 @@ module Graphics.Glyph.Util where import Data.Angle import Graphics.Rendering.OpenGL +int :: (Integral a, Num b) => a -> b +int = fromIntegral + uncurry7 :: (a -> b -> c -> d -> e -> f -> g -> h) -> (a,b,c,d,e,f,g) -> h uncurry7 func (a,b,c,d,e,f,g) = func a b c d e f g |