Update Database.hs

Comment