breaking gettx.hs because I don't understand monads