main.hs: fix warning