For the sake of demonstration, I have two nearly-identical files: ListSuccess.hs and ListFailure.hs:
ListSuccess.hs
ListFailure.hs