fixed app.hs