[FIX] Clean Text before sending it to NLP micro services + tests + clean code for...
[gargantext.git] / src / Gargantext / Utils / Tuple.hs
index ccc84dd4f21e0265ca312177aa4c6afa9e2aab26..31db25ad1a28bd1c674296c1a1e1dd48aa8f3ec9 100644 (file)
@@ -8,3 +8,7 @@ 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)