[project @ 1999-01-15 10:49:05 by sof]

[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..8b7651f 100644 (file)
--- a/ghc/tests/deSugar/should_compile/ds025.hs
+++ b/ghc/tests/deSugar/should_compile/ds025.hs
@@ -1,4 +1,4 @@
---!!! ds025 -- overloaded assoc -- AbsBinds
+-- !!! ds025 -- overloaded assoc -- AbsBinds
 
 module Util where
 
@@ -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 ()