module Main where

import Control.Monad
import Data.Maybe

import ObjectFile
import ObjectFileParser
import Linker
import Utils

readObj file = (dbgPrint `andReturn`) . readObjectFile =<< readFile file
main = do
	Just obj1 <- readObj "tests/test1.obj"
	Just obj2 <- readObj "tests/test2.obj"
	
	dbgPrint $ (mergeSections `on` sections) obj1 obj2
	
	let obj3 = merge obj1 obj2
	dbgPrint obj3
	putStrLn . showObjectFile $ obj3