]> Git — Sourcephile - gargantext.git/blob - src/Gargantext/Utils/Tuple.hs
[opaleye] remove ReadNull type instances
[gargantext.git] / src / Gargantext / Utils / Tuple.hs
1 module Gargantext.Utils.Tuple where
2
3 import Protolude
4
5
6
7 uncurryMaybe :: (Maybe a, Maybe b) -> Maybe (a, b)
8 uncurryMaybe (Nothing, _) = Nothing
9 uncurryMaybe (_, Nothing) = Nothing
10 uncurryMaybe (Just a, Just b) = Just (a, b)