-- | Utility functions to build log programs.
log :: Level -> String -> Free LogF ()
log level msg = liftF $ Log level msg ()
log :: Level -> String -> Free LogF ()
log level msg = liftF $ Log level msg ()
log level msg = liftF $ Log level msg ()