-- * Miscellaneous

-- | Provide a default value for an Alternative
(|>) :: Alternative f => f a -> a -> f a
f |> a = f <|> pure a
(|>) :: Alternative f => f a -> a -> f a
f |> a = f <|> pure a
f |> a = f <|> pure a