[project @ 2001-08-22 12:24:41 by simonmar]

[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
deleted file mode 100644 (file)
index fdbf0ff..0000000
--- a/ghc/tests/deSugar/should_compile/ds025.hs
+++ /dev/null
@@ -1,16 +0,0 @@
--- !!! ds025 -- overloaded assoc -- AbsBinds
-
-module ShouldCompile where
-
-ehead xs loc | null xs = error ("4"++loc)
-             | True = head xs
-
-assoc key lst loc
-   = if (null res) then error ("1"++loc++"2"++(show key))
-                   else (ehead res "3")
-     where res = [ val | (key',val) <- lst, key==key']
-
-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']