patch applied (packages/base): new Control.Category, ghc ticket #1773

[Ashley Yakeley]

On Mon, 2007-10-29 at 11:42 -0700, Ashley Yakeley wrote:
> > It appears that GHC is looking for Control.Arrow.>>>, which has moved to 
> > Control.Category.  Third issue:
> 
> I'm not sure why the tests are looking for Control.Arrow.>>>, which
> doesn't exist anymore. I'm doing a full clean & build to see if the
> problem goes away.

It's still looking for Control.Arrow.>>> and I'm not sure why. Here's
the output with -ddump-if-trace. It all looks fine until the
"tcImportDecl Control.Arrow.>>>" line.

-- Ashley

[glastonbury:~/Projects/Haskell/ghc/testsuite/tests/ghc-regress/arrows/should_compile]$ '/home/ashley/Projects/Haskell/ghc/compiler/stage1/ghc-inplace' -no-recomp -dcore-lint -dcmm-lint -Dx86_64_unknown_linux  -c arrowrec1.hs -O -auto-all -fasm -ddump-if-trace
FYI: cannot read old interface file:
    arrowrec1.hi: openBinaryFile: does not exist (No such file or
directory)
Considering whether to load base:Prelude
Reading interface for base:Prelude; reason: Prelude is directly imported
readIFace /home/ashley/Projects/Haskell/ghc/libraries/base/dist/build/Prelude.hi
updating EPS_
Considering whether to load base:Control.Arrow
Reading interface for base:Control.Arrow;
    reason: Control.Arrow is directly imported
readIFace /home/ashley/Projects/Haskell/ghc/libraries/base/dist/build/Control/Arrow.hi
updating EPS_
Considering whether to load base:Data.Char
Reading interface for base:Data.Char; reason: Data.Char is directly
imported
readIFace /home/ashley/Projects/Haskell/ghc/libraries/base/dist/build/Data/Char.hi
updating EPS_
updating EPS_
Loading orphan modules: base:Control.Monad.Instances base:GHC.Base
Considering whether to load base:Control.Monad.Instances {- SYSTEM -}
Reading interface for base:Control.Monad.Instances;
    reason: base:Control.Monad.Instances is a orphan-instance module
readIFace /home/ashley/Projects/Haskell/ghc/libraries/base/dist/build/Control/Monad/Instances.hi
updating EPS_
Considering whether to load base:GHC.Base {- SYSTEM -}
Reading interface for base:GHC.Base;
    reason: base:GHC.Base is a orphan-instance module
readIFace /home/ashley/Projects/Haskell/ghc/libraries/base/dist/build/GHC/Base.hi
updating EPS_
loadHiBootInterface main:ShouldCompile
Considering whether to load base:GHC.Num {- SYSTEM -}
Reading interface for base:GHC.Num; reason: Checking fixity for
GHC.Num.-
readIFace /home/ashley/Projects/Haskell/ghc/libraries/base/dist/build/GHC/Num.hi
updating EPS_
Considering whether to load base:GHC.Num {- SYSTEM -}
Starting fork { Declaration for ArrowLoop
Loading decl for Control.Arrow.ArrowLoop
updating EPS_
buildClass
buildClass Control.Arrow.:TArrowLoop
} ending fork Declaration for ArrowLoop
Considering whether to load base:GHC.Base {- SYSTEM -}
Considering whether to load base:GHC.Base {- SYSTEM -}
Considering whether to load base:GHC.Base {- SYSTEM -}
Considering whether to load base:GHC.Base {- SYSTEM -}
Starting fork { Declaration for returnA
Loading decl for Control.Arrow.returnA
updating EPS_
} ending fork Declaration for returnA
Starting fork { Declaration for ord
Loading decl for GHC.Base.ord
updating EPS_
} ending fork Declaration for ord
Starting fork { Declaration for Num
Loading decl for GHC.Num.Num
updating EPS_
Need decl for GHC.Show.Show
Considering whether to load base:GHC.Show {- SYSTEM -}
Reading interface for base:GHC.Show; reason: Need decl for GHC.Show.Show
readIFace /home/ashley/Projects/Haskell/ghc/libraries/base/dist/build/GHC/Show.hi
updating EPS_
buildClass
buildClass GHC.Num.:TNum
} ending fork Declaration for Num
Starting fork { Class op GHC.Num.- a -> a -> a
} ending fork Class op GHC.Num.- a -> a -> a
Starting fork { Declaration for chr
Loading decl for GHC.Base.chr
updating EPS_
} ending fork Declaration for chr
Starting fork { Class op GHC.Num.+ a -> a -> a
} ending fork Class op GHC.Num.+ a -> a -> a
Starting fork { Declaration for Arrow
Loading decl for Control.Arrow.Arrow
updating EPS_
Need decl for Control.Category.Category
Considering whether to load base:Control.Category {- SYSTEM -}
Reading interface for base:Control.Category;
    reason: Need decl for Control.Category.Category
readIFace /home/ashley/Projects/Haskell/ghc/libraries/base/dist/build/Control/Category.hi
updating EPS_
buildClass
buildClass Control.Arrow.:TArrow
} ending fork Declaration for Arrow
tcImportDecl Control.Arrow.>>>
Need decl for Control.Arrow.>>>
Considering whether to load base:Control.Arrow {- SYSTEM -}

arrowrec1.hs:9:4:
    Can't find interface-file declaration for variable Control.Arrow.>>>
      Probable cause: bug in .hi-boot file, or inconsistent .hi file
      Use -ddump-if-trace to get an idea of which file caused the error
    In the expression:
        proc x -> do a <- returnA -< ord x
                     rec {b <- returnA -< ord c - ord x
                          c <- returnA -< chr a}
                     returnA -< b + ord c
    In the definition of `f':
        f = proc x -> do a <- returnA -< ord x
                         rec {b <- returnA -< ord c - ord x
                              c <- returnA -< chr a}
                         ....