rds-data-0.0.0.1: src/Data/RdsData/Internal/Maybe.hs

module Data.RdsData.Internal.Maybe
  ( toMaybe
  ) where

toMaybe :: a -> Bool -> Maybe a
toMaybe x True = Just x
toMaybe _ _ = Nothing