From 0c54864f6301a6e0a7bf5553818995fda883bace Mon Sep 17 00:00:00 2001
From: Joshua Rahm <joshua.rahm@colorado.edu>
Date: Fri, 25 Apr 2014 13:09:42 -0600
Subject: have first person view

---
 Graphics/Glyph/Util.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'Graphics/Glyph')

diff --git a/Graphics/Glyph/Util.hs b/Graphics/Glyph/Util.hs
index 78fd053..790b9f6 100644
--- a/Graphics/Glyph/Util.hs
+++ b/Graphics/Glyph/Util.hs
@@ -310,3 +310,6 @@ for = flip map
 distribMaybe :: Maybe (a,b) -> (Maybe a, Maybe b)
 distribMaybe Nothing = (Nothing,Nothing)
 distribMaybe (Just (a,b)) = (Just a, Just b)
+
+whenM :: IO Bool -> IO () -> IO ()
+whenM b = (>>=) b . flip when
-- 
cgit