-- | An interpreter for the logging DSL, in terms of the IO monad.
interpLogIO :: LogF a -> IO a
interpLogIO (Log level msg next) = do
  putStrLn $ (show level) ++ ": " ++ msg
  return next

--------------------------------------------------------------------------------
-- The DSL for REST clients.
interpLogIO :: LogF a -> IO a
interpLogIO (Log level msg next) = do
  putStrLn $ (show level) ++ ": " ++ msg
  return next

--------------------------------------------------------------------------------
-- The DSL for REST clients.
interpLogIO (Log level msg next) = do
  putStrLn $ (show level) ++ ": " ++ msg
  return next

--------------------------------------------------------------------------------
-- The DSL for REST clients.