[project @ 1997-09-05 14:11:05 by simonm]

[ghc-hetmet.git] / ghc / tests / deSugar / should_compile / ds025.hs

diff --git a/ghc/tests/deSugar/should_compile/ds025.hs b/ghc/tests/deSugar/should_compile/ds025.hs
index c28b16d..b2ae1fd 100644 (file)
--- a/ghc/tests/deSugar/should_compile/ds025.hs
+++ b/ghc/tests/deSugar/should_compile/ds025.hs
@@ -14,5 +14,3 @@ assocMaybe :: (Eq a) => a -> [(a,b)] -> Maybe b
 assocMaybe key lst
  = if (null res) then Nothing else (Just (head res))
    where res =  [ val | (key',val) <- lst, key==key']
-
-data Maybe a = Just a | Nothing deriving ()