1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
-- | Non chart specific utility functions.
module Graphics.Rendering.Chart.Utils(
isValidNumber,
log10,
maybeM,
whenJust,
) where
-- | Checks if the given value is and actual numeric value and not
-- a concept like NaN or infinity.
isValidNumber :: (RealFloat a) => a -> Bool
isValidNumber v = not (isNaN v) && not (isInfinite v)
-- | Shorthand for the decimal logarithm
log10 :: (Floating a) => a -> a
log10 = logBase 10
-- | Version of 'Prelude.maybe' that returns a monadic value.
maybeM :: (Monad m) => b -> (a -> m b) -> Maybe a -> m b
maybeM v = maybe (return v)
-- | Specialization to ()
whenJust :: (Monad m) => Maybe a -> (a -> m ()) -> m ()
whenJust m f = maybeM () f m
|
