path: root/testsuite/tests/ghci.debugger/scripts/result001.hs

f xs = case map id xs of
         [] -> True
         x:xs -> False