patch for review: show ghci-related flags in ghci :set, :show packages, :show languages

[Simon Marlow]

Claus Reinke wrote:
> Hi Simon,
> 
>> I've tested your patches - unfortunately they fail the tests for me. 
>> Multi-line commands apparently work via readline, but not when piped 
>> into stdin. 
> 
> i don't know what you mean? the tests worked on my platform,
> and piping from stdin seems to work fine for me. see log below.
> could you tell me what exactly your tests say?

ghci023,024,025 all fail, for various reasons.  To be fair I can see why 
024 fails and I can fix that.  ghci023 seems to be caused by ^M - if I run 
the script through dos2unix I get the right results.  Does that help?

====> Running ./prog008/prog008.T
====> Running ./scripts/all.T
=====> ghci023(ghci)
cd ./scripts && 
HC='/64playpen/simonmar/testing/compiler/stage2/ghc-inplace' 
HC_OPTS='-dcore-lint -dcmm-lint -Dx86_64_unknown_linux ' 
'/64playpen/simonmar/testing/compiler/stage2/ghc-inplace' --interactive -v0 
-ignore-dot-ghci-dcore-lint -dcmm-lint -Dx86_64_unknown_linux 
<ghci023.script >ghci023.run.stdout 2>ghci023.run.stderr
Actual stdout output differs from expected:
--- ./scripts/ghci023.stdout.normalised 2007-10-17 14:49:36.000000000 +0100
+++ ./scripts/ghci023.run.stdout.normalised     2007-10-17 
14:49:36.000000000 +0100
@@ -1,16 +1,2 @@
  -- testing ghci multiline commands :{ .. :}
  -- via stdin
-(1,2,3)
-data Maybe a = Nothing | Just a
-maybe :: b -> (a -> b) -> Maybe a -> b
-isJust :: Maybe a -> Bool
-isNothing :: Maybe a -> Bool
-fromJust :: Maybe a -> a
-fromMaybe :: a -> Maybe a -> a
-maybeToList :: Maybe a -> [a]
-listToMaybe :: [a] -> Maybe a
-catMaybes :: [Maybe a] -> [a]
-mapMaybe :: (a -> Maybe b) -> [a] -> [b]
--- via readFile
-(True,False)
-id :: a -> a
*** unexpected failure for ghci023(ghci)
=====> ghci024(ghci)
cd ./scripts && 
HC='/64playpen/simonmar/testing/compiler/stage2/ghc-inplace' 
HC_OPTS='-dcore-lint -dcmm-lint -Dx86_64_unknown_linux ' 
'/64playpen/simonmar/testing/compiler/stage2/ghc-inplace' --interactive -v0 
-ignore-dot-ghci-dcore-lint -dcmm-lint -Dx86_64_unknown_linux 
<ghci024.script >ghci024.run.stdout 2>ghci024.run.stderr
Actual stdout output differs from expected:
--- ./scripts/ghci024.stdout.normalised 2007-10-17 14:49:37.000000000 +0100
+++ ./scripts/ghci024.run.stdout.normalised     2007-10-17 
14:49:37.000000000 +0100
@@ -69,7 +69,7 @@
    -XParallelListComp
    -XForeignFunctionInterface
    -XUnliftedFFITypes
-  -XPartiallyAppliedClosedTypeSynonyms
+  -XLiberalTypeSynonyms
    -XRankNTypes
    -XTypeOperators
    -XRecursiveDo
@@ -99,12 +99,13 @@
  active package flags:
    -package ghc
  packages currently loaded:
-  ghc-6.9.20070917
+  ghc-6.9
    haskell98
    random-1.0
    Cabal-1.2.0
+  readline-1.0
    process-1.0
-  Win32-2.1
+  unix-2.0
    template-haskell
    packedstring-0.1
    pretty-1.0
*** unexpected failure for ghci024(ghci)
=====> ghci025(ghci)
cd ./scripts && 
HC='/64playpen/simonmar/testing/compiler/stage2/ghc-inplace' 
HC_OPTS='-dcore-lint -dcmm-lint -Dx86_64_unknown_linux ' 
'/64playpen/simonmar/testing/compiler/stage2/ghc-inplace' --interactive -v0 
-ignore-dot-ghci-dcore-lint -dcmm-lint -Dx86_64_unknown_linux 
<ghci025.script >ghci025.run.stdout 2>ghci025.run.stderr
Actual stdout output differs from expected:
--- ./scripts/ghci025.stdout.normalised 2007-10-17 14:49:38.000000000 +0100
+++ ./scripts/ghci025.run.stdout.normalised     2007-10-17 
14:49:38.000000000 +0100
@@ -33,16 +33,16 @@
  mapMaybe :: (a -> Maybe b) -> [a] -> [b]
  maybeToList :: Maybe a -> [a]
  -- imported from Control.Monad
-mzero :: (MonadPlus m) => m a
  mplus :: (MonadPlus m) => m a -> m a -> m a
--- imported from Data.Maybe, Prelude
-data Maybe a = Nothing | Just a
+mzero :: (MonadPlus m) => m a
  -- imported from Control.Monad, Prelude, T
  class Monad m where
    (>>=) :: m a -> (a -> m b) -> m b
    (>>) :: m a -> m b -> m b
    return :: a -> m a
    fail :: GHC.Base.String -> m a
+-- imported from Data.Maybe, Prelude
+data Maybe a = Nothing | Just a
  -- imported from Prelude
  class Eq a where
    (GHC.Base.==) :: a -> a -> GHC.Base.Bool
@@ -60,7 +60,6 @@
    c3 :: a1 -> b
    c4 :: a1 -> b
  -- defined locally
-T.length :: Integer
  class C a b where
    c1 :: (N b) => a -> b
    c2 :: (N b, S b) => a -> b
@@ -72,8 +71,8 @@
  c4 :: (C a b) => a1 -> b
  class S a
  class N a
--- defined locally
  T.length :: Integer
+-- defined locally
  class C a b where
    c1 :: (N b) => a -> b
    c2 :: (N b, S b) => a -> b
@@ -85,3 +84,4 @@
  c4 :: forall a b. (C a b) => forall a1. a1 -> b
  class S a
  class N a
+T.length :: Integer
*** unexpected failure for ghci025(ghci)
====> Running ./prog007/prog007.T
====> Running ./prog001/prog001.T
====> Running ./prog005/prog005.T
====> Running ./prog002/prog002.T
====> Running ./prog004/prog004.T
====> Running ./prog006/prog006.T
====> Running ./prog003/prog003.T
====> Running ./should_run/all.T

OVERALL SUMMARY for test run started at Wed Oct 17 14:49:36 BST 2007
       36 total tests, which gave rise to
       54 test cases, of which
        0 caused framework failures
       51 were skipped

        0 expected passes
        0 expected failures
        0 unexpected passes
        3 unexpected failures

Unexpected failures:
    ghci023(ghci)
    ghci024(ghci)
    ghci025(ghci)