main.hs cleanup
c