Skip to content

haskell-gargantext
haskell-gargantext
Switch branch/tag
Find file
BlameHistoryPermalink
Tuple.hs 363 Bytes
EditWeb IDE
1 2 3 4 5 6 7 8 9 10 11 12 13 14 
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)

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