path: root/testsuite/tests/ghci.debugger/scripts/print028.script

:set -Wno-x-partial
:m + Data.IORef

let l = map Just [1::Integer .. 10]
:p l
head l
r <- newIORef l
:p r
:sp r