diff options
| author | Joshua Rahm <joshua.rahm@colorado.edu> | 2014-04-18 01:17:46 -0600 |
|---|---|---|
| committer | Joshua Rahm <joshua.rahm@colorado.edu> | 2014-04-18 01:17:46 -0600 |
| commit | 915cda147b565880fecefe5f82ca242bad6114fc (patch) | |
| tree | d6afedd6d33bdca1601faaaebd731b89aab75431 /Graphics/Glyph/Util.hs | |
| parent | 73daf65aaa31b5fb59f4a91d9185387f63c7b09f (diff) | |
| download | terralloc-915cda147b565880fecefe5f82ca242bad6114fc.tar.gz terralloc-915cda147b565880fecefe5f82ca242bad6114fc.tar.bz2 terralloc-915cda147b565880fecefe5f82ca242bad6114fc.zip | |
starting tesselation shader
Diffstat (limited to 'Graphics/Glyph/Util.hs')
| -rw-r--r-- | Graphics/Glyph/Util.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/Graphics/Glyph/Util.hs b/Graphics/Glyph/Util.hs index 61cd3f0..78fd053 100644 --- a/Graphics/Glyph/Util.hs +++ b/Graphics/Glyph/Util.hs @@ -306,3 +306,7 @@ untilM2 cond ini bod = do for :: [a] -> (a -> b) -> [b] for = flip map + +distribMaybe :: Maybe (a,b) -> (Maybe a, Maybe b) +distribMaybe Nothing = (Nothing,Nothing) +distribMaybe (Just (a,b)) = (Just a, Just b) |