updated code so it will compile with the version of GHC that I'm using