Main.hs restored