Add fromMaybe to Haskell.Data.Maybe

cardano-foundation · May 9, 2024 · 9fbcd5b · 9fbcd5b
1 parent aae2c3f
commit 9fbcd5b
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 0 deletions.
diff --git a/lib/customer-deposit-wallet-pure/agda/Haskell/Data/Maybe.agda b/lib/customer-deposit-wallet-pure/agda/Haskell/Data/Maybe.agda
@@ -17,6 +17,11 @@ catMaybes [] = []
 catMaybes (Nothing ∷ xs) = catMaybes xs
 catMaybes (Just x ∷ xs) = x ∷ catMaybes xs
 
+fromMaybe : ∀ {a : Set} → a → Maybe a → a
+fromMaybe _ (Just a) = a
+fromMaybe a Nothing = a
+
 {-# COMPILE AGDA2HS isNothing #-}
 {-# COMPILE AGDA2HS isJust #-}
 {-# COMPILE AGDA2HS catMaybes #-}
+{-# COMPILE AGDA2HS fromMaybe #-}
diff --git a/lib/customer-deposit-wallet-pure/haskell/Haskell/Data/Maybe.hs b/lib/customer-deposit-wallet-pure/haskell/Haskell/Data/Maybe.hs
@@ -13,3 +13,7 @@ catMaybes [] = []
 catMaybes (Nothing : xs) = catMaybes xs
 catMaybes (Just x : xs) = x : catMaybes xs
 
+fromMaybe :: a -> Maybe a -> a
+fromMaybe _ (Just a) = a
+fromMaybe a Nothing = a
+