path: root/testsuite/tests/ghci/scripts/T5557.script

-- Both should raise an exception
([seq (seq undefined (\a -> error "a"))] !! 0) [1]
([seq (seq undefined (\a -> undefined))] !! 0) [1]