diff options
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) |