toBool :: (Eq a, Fractional a) => Maybe (Value a) -> Maybe Bool
toBool (Just (Right (Just 1.0))) = Just True
toBool :: (Eq a, Fractional a) => Maybe (Value a) -> Maybe Bool
toBool (Just (Right (Just 1.0))) = Just True
toBool (Just (Right (Just 1.0))) = Just True