X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2Ftests%2FArray%2Farr011%2FMain.hs;fp=ghc%2Flib%2Ftests%2FArray%2Farr011%2FMain.hs;h=0000000000000000000000000000000000000000;hb=7f0f325c2119165b48edfcf31eb79639bcbd2efa;hp=76ad1780ee327a4a286d357f966bfabe1c03f896;hpb=9b4229529c602b06eb4bad1e0da39d8b9dc1dc75;p=ghc-hetmet.git

diff --git a/ghc/lib/tests/Array/arr011/Main.hs b/ghc/lib/tests/Array/arr011/Main.hs
deleted file mode 100644
index 76ad178..0000000
--- a/ghc/lib/tests/Array/arr011/Main.hs
+++ /dev/null
@@ -1,20 +0,0 @@
--- Array - array difference operator
--- 
---
-module Main(main) where
-
-import Array
-import Ix
-
-hist :: (Ix a, Num b) => (a,a) -> [a] -> Array a b
-hist bnds is = accumArray (+) 0 bnds [(i,1) | i <- is , inRange bnds i]
-
-main = 
- let 
-  a1 = hist (0,10) (concat $ take 2 $ repeat [1..20])
- in
- print a1 >>
- print (a1 // [ (i,0) | i<-[0..10], odd i])
-
-
-