nsertTrace :: Connection -> FilePath -> IO DBInfo
insertTrace conn file = do
    traceKey <- head <$> query conn insertTraceQuery (Only file)
    case traceKey of
        Only key -> do
            return $ DBInfo {
                db_processbuffer = [],
                db_threadbuffer  = [],
                db_machinebuffer = [],
                db_traceKey   = key,
                db_machines   = M.empty,
                db_processes  = M.empty,
                db_threads    = M.empty,
                db_connection = conn
                }
        _       -> error "trace insertion failed"

insertTrace :: Connection -> FilePath -> IO DBInfo
insertTrace conn file = do
    traceKey <- head <$> query conn insertTraceQuery (Only file)
    case traceKey of
        Only key -> do
            return $ DBInfo {
                db_processbuffer = [],
                db_threadbuffer  = [],
                db_machinebuffer = [],
                db_traceKey   = key,
                db_machines   = M.empty,
                db_processes  = M.empty,
                db_threads    = M.empty,
                db_connection = conn
                }
        _       -> error "trace insertion failed"
insertTrace conn file = do
    traceKey <- head <$> query conn insertTraceQuery (Only file)
    case traceKey of
        Only key -> do
            return $ DBInfo {
                db_processbuffer = [],
                db_threadbuffer  = [],
                db_machinebuffer = [],
                db_traceKey   = key,
                db_machines   = M.empty,
                db_processes  = M.empty,
                db_threads    = M.empty,
                db_connection = conn
                }
        _       -> error "trace insertion failed"