pp :: IO Application
app = do
    -- Create an 'IORef' to a tuple of an 'IntMap' and 'Int'.
    -- The 'IntMap' will be our database.  The 'Int' will be a count
    -- holding the highest id in the database.
    dbRef <- newIORef (IntMap.empty, 1)
    return . serve blogPostApiProxy $ server (testDbDSLInServant dbRef)

-- | These are our actual unit tests.  They should be relatively
-- straightforward.
--
-- This function is using 'app', which in turn uses our test dsl interpreter
-- ('testDbDSLInServant').

app :: IO Application
app = do
    -- Create an 'IORef' to a tuple of an 'IntMap' and 'Int'.
    -- The 'IntMap' will be our database.  The 'Int' will be a count
    -- holding the highest id in the database.
    dbRef <- newIORef (IntMap.empty, 1)
    return . serve blogPostApiProxy $ server (testDbDSLInServant dbRef)

-- | These are our actual unit tests.  They should be relatively
-- straightforward.
--
-- This function is using 'app', which in turn uses our test dsl interpreter
-- ('testDbDSLInServant').
app = do
    -- Create an 'IORef' to a tuple of an 'IntMap' and 'Int'.
    -- The 'IntMap' will be our database.  The 'Int' will be a count
    -- holding the highest id in the database.
    dbRef <- newIORef (IntMap.empty, 1)
    return . serve blogPostApiProxy $ server (testDbDSLInServant dbRef)

-- | These are our actual unit tests.  They should be relatively
-- straightforward.
--
-- This function is using 'app', which in turn uses our test dsl interpreter
-- ('testDbDSLInServant').