main :: IO ()
main = runStdoutLoggingT $ do
  let fp = "/tmp/JUNK/S5Logging"
  logInfo $ T.pack $ "Writing to file: " ++ fp
  liftIO (writeFile fp "Hey there!") `onException`
    logError "Writing to file failed"
  logInfo $ T.pack $ "Reading from file: " ++ fp
  content <- liftIO (readFile fp) `onException`
    logError "Reading from file failed"
  logDebug $ T.pack $ "Content read: " ++ content
main :: IO ()
main = runStdoutLoggingT $ do
  let fp = "/tmp/JUNK/S5Logging"
  logInfo $ T.pack $ "Writing to file: " ++ fp
  liftIO (writeFile fp "Hey there!") `onException`
    logError "Writing to file failed"
  logInfo $ T.pack $ "Reading from file: " ++ fp
  content <- liftIO (readFile fp) `onException`
    logError "Reading from file failed"
  logDebug $ T.pack $ "Content read: " ++ content
main = runStdoutLoggingT $ do
  let fp = "/tmp/JUNK/S5Logging"
  logInfo $ T.pack $ "Writing to file: " ++ fp
  liftIO (writeFile fp "Hey there!") `onException`
    logError "Writing to file failed"
  logInfo $ T.pack $ "Reading from file: " ++ fp
  content <- liftIO (readFile fp) `onException`
    logError "Reading from file failed"
  logDebug $ T.pack $ "Content read: " ++ content