> For the complete documentation index, see [llms.txt](https://romanandreg.gitbook.io/teardown/llms.txt). Markdown versions of documentation pages are available by appending `.md` to page URLs; this page is available as [Markdown](https://romanandreg.gitbook.io/teardown/how-to/v0.5/display-teardown-result-tree.md).

# Display TeardownResult Tree

## Description

The following example:

* Creates a `Teardown` for a SQLite connection
* Executes the `Teardown` sub-routine in the end
* Uses `prettyTeardownResult` to render the output to stdout

## Code

```haskell
{-# LANGUAGE OverloadedStrings #-}
module Teardown.HowTo.Create where

import Control.Concurrent (threadDelay)
import Control.Monad (forever)
import Control.Exception (finally)
import Control.Teardown (Teardown, newTeardown, runTeardown, prettyTeardownResult)
import Database.SQLite.Simple (Connection, close, open, changes)

allocSQLiteConn :: String -> IO (Connection, Teardown)
allocSQLiteConn dbName = mask_ $ do
  conn <- open dbName
  connT <- newTeardown "sqlite conn" (close conn)
  return (conn, connT)

main :: IO ()
main = do
  bracket (allocSQLiteConn "./my-db.sqlite")
          (\(_, connT) -> runTeardown connT >>= (print . prettyTeardownResult))
          (\(conn, _) ->
            forever $ do
              threadDelay (1000100 :: Int)
              result <- changes conn
              print result
          )
```