[Haskell-cafe] runGet exits prematurely