X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Ftests%2FdeSugar%2Fshould_compile%2Fds005.hs;h=a02e8d9c1dd713d431db3f5586bb77a49390852d;hb=2b6b801a8c14595b71269aadddb20f71e498f778;hp=505d500e3f640728e2e7c9c60f386fbc3effc8eb;hpb=7c3d63b7e7e5d6f5de5b7ad718a9b689a7933084;p=ghc-hetmet.git

diff --git a/ghc/tests/deSugar/should_compile/ds005.hs b/ghc/tests/deSugar/should_compile/ds005.hs
index 505d500..a02e8d9 100644
--- a/ghc/tests/deSugar/should_compile/ds005.hs
+++ b/ghc/tests/deSugar/should_compile/ds005.hs
@@ -1,8 +1,8 @@
---!!! ds005 -- mappairs from SLPJ Ch 5'
+-- !!! ds005 -- mappairs from SLPJ Ch 5'
 --
 -- this simply tests a "typical" example
 
-module MapPairs where
+module ShouldCompile where
 
 -- from SLPJ, p 78
 mappairs f []     ys     = []