Dear STGHugs-991125 Linux, i386,
you cannot load my large project.
It has to load by
hugs -98 +o -h2600000 +RTS -M22m -H20m -K2m -RTS
-P\{Hugs\}/lib:\{Hugs\}/lib/hugs:\{Hugs\}/lib/exts:source
:source/auxil:source/lin:source/parse:source/pol:source/pol/factor
:source/pol/symmfunc:source/residue:source/demotest
...
Prelude> :s
Current settings: +ewo -stgl.qkDD -h2600000 -p"%s> " -r$$ -c64
Search path : -P{Hugs}/lib:{Hugs}/lib/hugs:{Hugs}/lib/exts:source
:source/auxil:source/lin:source/parse:source/pol
:source/pol/factor:source/pol/symmfunc:source/residue
:source/demotest
Editor setting : -Eemacs
Preprocessor : -F
Compatibility : Hugs Extensions (-98)
Prelude> :l EPol0_
Reading script ...
...
Reading script "source/DPair.hs":
Reading script "source/pol/EPol0_.hs":
Parsing
ERROR "source/pol/EPol0_.hs" (line 390): Syntax error in input
(unexpected keyword "instance")
-----------------------------------------------------------------
The whole projects, - of many modules, - compiles under GHC.
The neighbourhood of the line 390 in EPol0_.hs is
-------------------------------------------------------------
epoladd_ :: (AddGroup a) => EPol a -> EPol a -> EPol a
epoladd_ (EPol ms o pol) g = case (zeroS $ sample pol, eppoECp o) of
(z,cp) -> ct g $ epa ms $ epolMons g
where
epa [] msG = msG
epa msF [] = msF
epa (m:msf) (n:msg) =
let
{ (a,p) = m; (b,q) = n; c = add a b }
in
case cp p q
of
GT -> m:(epa msf (n:msg))
LT -> n:(epa (m:msf) msg)
_ -> if c==z then epa msf msg else (c,p):(epa msf msg)
epoltm :: (Ring a) => (a -> j -> a) -> EPol a -> j -> EPol a
epoltm t f n =
ctr f [(t a n, e) | (a,e) <- epolMons f]
-- t = `times' on `a'
instance (CommutativeRing a) => Show (EPol a)
where
showsPrec _ (EPol ms _ f) =
...
---------------------------------------------------------------------
I could send you the project (by appending uuencoded archive to e-mail
letter), if you tell me the address and confirm that you would not
distribute this source any wider than it is needed for Hugs debugging.
------------------
Sergey Mechveliani
[EMAIL PROTECTED]
