[project @ 1997-03-14 08:02:40 by simonpj]
[nofib.git] / real / fem / Basics.hs
index e802e6b..0df9b76 100644 (file)
@@ -8,10 +8,12 @@
 -- **********************************************************************
 
 
-module Basics(showrj,showlj, azip) where
+module Basics(showrj,showlj, azip, module Array) where
 
+import Array
 
-showlj, showrj :: (Text a) => Int -> a -> [Char]
+
+showlj, showrj :: (Show a) => Int -> a -> [Char]
 
 rep :: Int -> a -> [a]
 
@@ -32,9 +34,9 @@ showlj l x
         bs | l <= length ns   = 1
            | otherwise        = l - length ns
 
-azip :: [a] -> [b] -> [Assoc a b]
+azip :: [a] -> [b] -> [(a,b)]
 
 azip [] [] = []
-azip ( x : ls ) ( x' : ls' ) = (x := x') : (azip ls ls')
+azip ( x : ls ) ( x' : ls' ) = (x,x') : (azip ls ls')