logWarning :: Risky Bool -> IO Bool
logWarning = either (\x -> print x >> return False) return
logWarning :: Risky Bool -> IO Bool
logWarning = either (\x -> print x >> return False) return
logWarning = either (\x -> print x >> return False) return