wip-nofib pedantry: remove some warnings

asterius/nofib/imaginary/exp3_8/Main.hs

@@ -1,4 +1,5 @@
 {-# OPTIONS_GHC -Wno-tabs #-}
+{-# OPTIONS_GHC -Wno-missing-methods #-}
 {-
 From [email protected] Sat Jan 11 11:56:04 1992
 From: [email protected] (Lennart Augustsson)

asterius/nofib/real/anna/BaseDefs.hs

@@ -1,4 +1,5 @@
 {-# OPTIONS_GHC -Wno-tabs #-}
+{-# OPTIONS_GHC -Wno-missing-methods #-}
 
 -- ==========================================================--
 -- === Base declarations                      BaseDefs.hs ===--

asterius/nofib/real/bspt/Input.lhs

@@ -1,4 +1,5 @@
 \begin{code}
+{-# OPTIONS_GHC -Wno-tabs #-}
 module Input where
 import Interpret
 import Euclid

asterius/nofib/real/bspt/Rationals.lhs

@@ -1,3 +1,4 @@
+> {-# OPTIONS_GHC -Wno-missing-methods #-}
 > module Rationals
 
 >		(Rationals(..),rndNR)
@@ -21,7 +22,7 @@
 >	(p :%% q) <= (r :%% s) = p*s <= q*r
 
 > instance Num Rationals where
-	
+
 	(+): rational addition is performed by converting
 	the arguments to a form where they share a common
 	denominator.

asterius/nofib/real/hidden/Geometric.hs

@@ -1,4 +1,5 @@
 {-# OPTIONS_GHC -Wno-tabs #-}
+{-# OPTIONS_GHC -Wno-missing-methods #-}
 module Geometric (Geom(..)) where
 import Numbers
 import Vectors

asterius/nofib/real/hidden/Numbers.hs

@@ -1,4 +1,5 @@
 {-# OPTIONS_GHC -Wno-tabs #-}
+{-# OPTIONS_GHC -Wno-missing-methods #-}
 module Numbers(Number) where
 data Number = Tolerant Float
 -- if you are not using the Chalmers Haskell B compiler then remove the @

asterius/nofib/real/linear/Cg.lhs

@@ -16,6 +16,7 @@
 
 
 \begin{code}
+{-# OPTIONS_GHC -Wno-tabs #-}
 
 module Cg(cgiters,Cg_state (..),showcg_state)
         where

asterius/nofib/real/linear/Densematrix.lhs

@@ -32,7 +32,7 @@
                                   assumes the arg is column major.
 
 \begin{code}
-
+{-# OPTIONS_GHC -Wno-tabs #-}
 module Densematrix(Matrix,Vector,
         mmult, madd, msub, vouter, vdot, norm ,mneg ,mxpose,mident, msize,
         mkmat, mkrmat, mkcmat, mkvec, mkrvec, mkcvec,

asterius/nofib/real/linear/Input.lhs

@@ -29,6 +29,7 @@ Notes:
       (r,c,b) = (r-1,c-1,..) to make indices zero origin.
 
 \begin{code}
+{-# OPTIONS_GHC -Wno-tabs #-}
 module Input
 (gmat,rhside,soln_vect,wells,split,blm',mkbigvec,
               mksparse,a_easy,a_hard,x1) where

asterius/nofib/real/linear/Matlib.lhs

@@ -22,6 +22,7 @@ Notes:
   The import of AbsDensematrix is to keep hbc happy.
 
 \begin{code}
+{-# OPTIONS_GHC -Wno-tabs #-}
 module Matlib (scale, precond, uncondition) where
 
 import Data.List (genericLength)

asterius/nofib/real/linear/Matrix.lhs

@@ -8,6 +8,7 @@
  =======================================================================
 
 \begin{code}
+{-# OPTIONS_GHC -Wno-tabs #-}
 
 module Matrix
          (Matrix, Vector, Block , Vec ,
@@ -145,7 +146,7 @@ mupdate m (i,j) val
      where
         f xs = (take j xs) ++ [(i, (j+1), val)] ++ (drop (j+1) xs)
 
-	
+
 vupdate v i vc = (take i v) ++ [vc] ++ (drop (i+1) v)
 
 

asterius/nofib/real/symalg/BasicNumber.hs

@@ -1,4 +1,5 @@
 {-# OPTIONS_GHC -Wno-tabs #-}
+{-# OPTIONS_GHC -Wno-missing-methods #-}
 module BasicNumber (BasicNumber (..), makeReal, makeRational, RealT{-partain-}) where
 
 import RealM

asterius/nofib/real/veritas/Type_defs.lhs

@@ -1,3 +1,5 @@
+> {-# OPTIONS_GHC -Wno-missing-methods #-}
+
 > module Type_defs where
 
 > import Core_datatype

asterius/nofib/spectral/atom/Main.hs

@@ -1,4 +1,5 @@
 {-# OPTIONS_GHC -Wno-tabs #-}
+{-# OPTIONS_GHC -Wno-missing-methods #-}
 {-	A kernel fragment from a program written by
 		Ron Legere  -- http://www.its.caltech.edu/~legere
 		Caltech Quantum Optics

asterius/nofib/spectral/knights/ChessSetList.lhs

@@ -9,6 +9,7 @@ data parallel search (for instance wedge first??). This module
 abstracts data type specific operations used in the Heuristic part of the tour.
 
 \begin{code}
+{-# OPTIONS_GHC -Wno-tabs #-}
 module ChessSetList(Tile,
 		    ChessSet,
 		    createBoard,
@@ -61,7 +62,7 @@ instance Eq ChessSet where
     _ == _ = True
 
 instance Ord ChessSet where
-    _ <= _ = True			
+    _ <= _ = True
 
 instance Show ChessSet where
    showsPrec p board@(Board sze n f ts)

asterius/nofib/spectral/knights/KnightHeuristic.lhs

@@ -4,6 +4,7 @@
 \section{Knights Tour Heuristic.}
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%M O D U L E%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 \begin{code}
+{-# OPTIONS_GHC -Wno-tabs #-}
 module KnightHeuristic(
 	ChessSet,
 	startTour,
@@ -127,7 +128,7 @@ descendents board
 		          where
 		             singles = singleDescend board
 
-singleDescend::ChessSet -> [ChessSet]		
+singleDescend::ChessSet -> [ChessSet]
 singleDescend board =[x | (y,x) <- descAndNo board, y==1]
 
 descAndNo::ChessSet -> [(Int,ChessSet)]

asterius/nofib/spectral/knights/Main.lhs

@@ -5,6 +5,7 @@
 \section{The Main Program.}
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%M O D U L E%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 \begin{code}
+{-# OPTIONS_GHC -Wno-tabs #-}
 module Main(main) where
 \end{code}
 %%%%%%%%%%%%%%%%%% I M P O R T S  /  T Y P E   D E F S %%%%%%%%%%%%%%

asterius/nofib/spectral/knights/Queue.lhs

@@ -5,6 +5,7 @@
 \section{A Queue Abstract data type}
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 \begin{code}
+{-# OPTIONS_GHC -Wno-tabs #-}
 module Queue(
 		Queue, createQueue, addFront, addBack,
 		addAllFront, addAllBack, inquireFront,

asterius/nofib/spectral/knights/Sort.lhs

@@ -10,6 +10,7 @@ i.e ``{\tt import Sort(lazySort) renaming sort}'' imports {\tt lazySort},
 which can be referenced in the current scope as {\tt sort}.
 
 \begin{code}
+{-# OPTIONS_GHC -Wno-tabs #-}
 module Sort(insertSort,mergeSort,quickSort,lazySort)  where
 
 \end{code}
@@ -144,7 +145,7 @@ rands s1 s2
    = if z < 1 then z + 2147483562 : rands s1'' s2''
      else
 	 z : rands s1'' s2''
-     where	
+     where
 	k    = s1 `div` 53668
 	s1'  = 40014 * (s1 - k * 53668) - k * 12211
 	s1'' = if s1' < 0 then s1' + 2147483563 else s1'

asterius/nofib/spectral/mandel/Mandel.lhs

@@ -7,6 +7,7 @@
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 \begin{onlystandalone}
 \begin{code}
+{-# OPTIONS_GHC -Wno-tabs #-}
 module Mandel where
 import Data.Complex -- 1.3
 import PortablePixmap

asterius/nofib/spectral/mandel/PortablePixmap.lhs

@@ -95,6 +95,7 @@ AUTHOR
 Sun Release 4.1  Last change: 15 September 1990                 2
 \end{verbatim}
 \begin{code}
+{-# OPTIONS_GHC -Wno-tabs #-}
 module PortablePixmap where
 
 data PixMap = Pixmap Integer Integer Int [(Int,Int,Int)]