testsuite/tests/ghc-regress/deSugar/should_compile/ds004.hs


1
2
3
4
5
6
7
8
9

-- !!! ds004 -- nodups from SLPJ p 79
--
module ShouldCompile where

-- SLPJ, p 79
nodups []                   = []
nodups [x]                  = [x]
nodups (y:x:xs) | y == x    = nodups (x:xs)
    	    	| True	    = y : nodups (x:xs)