Haskell98 undefinedness