Commit 0263bf18 authored by simonmar's avatar simonmar
Browse files

[project @ 2001-10-29 09:38:39 by simonmar]

Move the unused binding test from deSugar to rename, and add another
case which currently fails to produce a warning (from Marcin).  This
test is a known failure at the moment.
parent 57fd559e
......@@ -63,4 +63,3 @@ test "ds050" { vtc("-fglasgow-exts") }
test "ds051" { vtc("") }
test "ds052" { $expect = "fail" vtc("") }
test "ds053" { $expect = "fail" vtc("") }
test "ds054" { $expect = "fail" vtc("") }
......@@ -35,6 +35,7 @@ test "rn037" { vtc("") }
test "rn038" { $expect = "fail" vtc("") }
test "rn039" { vtc("") }
test "rn040" { $expect = "fail" vtc("") }
test "timing001" { vtc("") }
test "timing002" { vtc("") }
......
{-# OPTIONS -fwarn-unused-binds #-}
module ShouldCompile where
-- !!! should produce a warning about an unused identifer
-- !!! should produce warnings about unused identifers
x :: [()]
x = [ () | y <- [] ]
z = do w <- getContents; return ()
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment