Skip to content

haskell-gargantext
haskell-gargantext
Switch branch/tag
Find file
BlameHistoryPermalink
Tuple.hs 224 Bytes
1 2 3 4 5 6 7 8 9 10 
module Gargantext.Utils.Tuple where

import Protolude



uncurryMaybe :: (Maybe a, Maybe b) -> Maybe (a, b)
uncurryMaybe (Nothing, _) = Nothing
uncurryMaybe (_, Nothing) = Nothing
uncurryMaybe (Just a, Just b) = Just (a, b)