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

:l shell.hs
:def shell (\s -> do shell s; return "")
:l

:shell rm -f T6106.hs
:shell echo "{-# OPTIONS_GHC -F -pgmF ./T6106_preproc #-}" >T6106.hs
:shell echo "module T6106 where" >>T6106.hs
:load T6106.hs
-- second one should fail:
:reload