git.iko.soy/rowtype-yoga/psfp
on d04de9c help sign in
15 lines 463 B history raw
1module Yoga.Helpers where
3import Prelude
4import Data.Maybe (Maybe(..), fromMaybe)
6fromMaybeFlipped ∷ ∀ a. Maybe a -> a -> a
7fromMaybeFlipped = flip fromMaybe
9infixr 5 fromMaybeFlipped as ?||
11ifJustTrue ∷ ∀ m. Monoid m => Maybe Boolean -> m -> m
12ifJustTrue option value = if option == Just true then value else mempty
14ifJustFalse ∷ ∀ m. Monoid m => Maybe Boolean -> m -> m
15ifJustFalse option value = if option == Just false then value else mempty