disambiguate uses of foldr for nhc98 to compile without errors

make Control.Monad.Instances compilable by nhc98

breakpointCond

UNDO: Merge "unrecognized long opt" fix from 6.4.2
This patch undid the previous patch, "RequireOrder: do not collect
unrecognised options after a non-opt".  I asked Sven to revert it, but
didn't get an answer.

See bug #473.

Avoid strictness in accumulator for unpackFoldr

The seq on the accumulator for unpackFoldr will break in the presence of
head/build rewrite rules. The empty list case will be forced, producing
an exception. This is a known issue with seq and rewrite rules that we
just stumbled on to.

Disable unpack/build fusion

unpack/build on bytestrings seems to trigger a bug when interacting with
head/build fusion in GHC.List. The bytestring001 testcase catches it.

I'll investigate further, but best to disable this for now (its not
often used anyway).

Note that with -frules-off or ghc 6.4.2 things are fine. It seems to
have emerged with the recent rules changes.

Import Data.ByteString.Lazy, improve ByteString Fusion, and resync with FPS head

This patch imports the Data.ByteString.Lazy module, and its helpers,
providing a ByteString implemented as a lazy list of strict cache-sized
chunks. This type allows the usual lazy operations to be written on
bytestrings, including lazy IO, with much improved space and time over
the [Char] equivalents.

Wibble in docs for new ForeignPtr functionsn

comments for Applicative and Traversable

default to NoBuffering on Windows for a read/write text file
Fixes (works around) #679

remove dead code

clarify and expand docs

Add minView and maxView to Map and Set

add signature for registerDelay

a few doc comments

Optimised foreign pointer representation, for heap-allocated objects

Add the inline function, and many comments

This commit adds the 'inline' function described in the
related patch in the compiler.

I've also added comments about the 'lazy' function.

small intro to exceptions

export breakpoint

Merge in changes from fps head. Highlights:

    Wed May 24 15:49:38 EST 2006  sjanssen@cse.unl.edu
      * instance Monoid ByteString

    Wed May 24 15:04:04 EST 2006  Duncan Coutts <duncan.coutts@worc.ox.ac.uk>
      * Rearange export lists for the .Char8 modules

    Wed May 24 14:59:56 EST 2006  Duncan Coutts <duncan.coutts@worc.ox.ac.uk>
      * Implement mapAccumL and reimplement mapIndexed using loopU

    Wed May 24 14:47:32 EST 2006  Duncan Coutts <duncan.coutts@worc.ox.ac.uk>
      * Change the implementation of the unfoldr(N) functions.
      Use a more compact implementation for unfoldrN and change it's behaviour
      to only return Just in the case that it actually 'overflowed' the N, so
      the boundary case of unfolding exactly N gives Nothing.
      Implement unfoldr and Lazy.unfoldr in terms of unfoldrN. Use fibonacci
      growth for the chunk size in unfoldr

    Wed May 24 08:32:29 EST 2006  sjanssen@cse.unl.edu
      * Add unfoldr to ByteString and .Char8
      A preliminary implementation of unfoldr.

    Wed May 24 01:39:41 EST 2006  Duncan Coutts <duncan.coutts@worc.ox.ac.uk>
      * Reorder the export lists to better match the Data.List api

    Tue May 23 14:04:32 EST 2006  Don Stewart <dons@cse.unsw.edu.au>
      * pack{Byte,Char} -> singleton. As per fptools convention

    Tue May 23 14:00:51 EST 2006  Don Stewart <dons@cse.unsw.edu.au>
      * elemIndexLast -> elemIndexEnd

    Tue May 23 13:57:34 EST 2006  Don Stewart <dons@cse.unsw.edu.au>
      * In the search for a more orthogonal api, we kill breakFirst/breakLast,
        which were of dubious value

    Tue May 23 12:24:09 EST 2006  Don Stewart <dons@cse.unsw.edu.au>
      * Abolish elems. It's name implied it was unpack, but its type didn't. it made no sense

    Tue May 23 10:42:09 EST 2006  Duncan Coutts <duncan.coutts@worc.ox.ac.uk>
      * Minor doc tidyup. Use haddock markup better.

    Tue May 23 11:00:31 EST 2006  Don Stewart <dons@cse.unsw.edu.au>
      * Simplify the join() implementation. Spotted by Duncan.

add a way to ask the IO manager thread to exit

Sync with FPS head, including the following patches:

    Thu May 18 15:45:46 EST 2006  sjanssen@cse.unl.edu
      * Export unsafeTake and unsafeDrop

    Fri May 19 11:53:08 EST 2006  Don Stewart <dons@cse.unsw.edu.au>
      * Add foldl1'

    Fri May 19 13:41:24 EST 2006  Don Stewart <dons@cse.unsw.edu.au>
      * Add fuseable scanl, scanl1 + properties

    Fri May 19 18:20:40 EST 2006  Don Stewart <dons@cse.unsw.edu.au>
      * Spotted another chance to use unsafeTake,Drop (in groupBy)

    Thu May 18 09:24:25 EST 2006  Duncan Coutts <duncan.coutts@worc.ox.ac.uk>
      * More effecient findIndexOrEnd based on the impl of findIndex

    Thu May 18 09:22:49 EST 2006  Duncan Coutts <duncan.coutts@worc.ox.ac.uk>
      * Eliminate special case in findIndex since it's handled anyway.

    Thu May 18 09:19:08 EST 2006  Duncan Coutts <duncan.coutts@worc.ox.ac.uk>
      * Add unsafeTake and unsafeDrop
      These versions assume the n is in the bounds of the bytestring, saving
      two comparison tests. Then use them in varous places where we think this
      holds. These cases need double checking (and there are a few remaining
      internal uses of take / drop that might be possible to convert).
      Not exported for the moment.

    Tue May 16 23:15:11 EST 2006  Don Stewart <dons@cse.unsw.edu.au>
      * Handle n < 0 in drop and splitAt. Spotted by QC.

    Tue May 16 22:46:22 EST 2006  Don Stewart <dons@cse.unsw.edu.au>
      * Handle n <= 0 cases for unfoldr and replicate. Spotted by QC

    Tue May 16 21:34:11 EST 2006  Don Stewart <dons@cse.unsw.edu.au>
      * mapF -> map', filterF -> filter'

haddock fix

simplify indexing in Data.Sequence

Move Eq, Ord, Show instances for ThreadId to GHC.Conc
Eliminates orphans.

Better error handling in the IO manager thread
In particular, handle EBADF just like rts/posix/Select.c, by waking up
all the waiting threads.  Other errors are thrown, instead of just
being ignored.

#define _REENTRANT 1  (needed to get the right errno on some OSs)
Part 2 of the fix for threaded RTS problems on Solaris and possibly
*BSD (Part 1 was the same change in ghc/includes/Rts.h).

copyCString* should be in IO. Spotted by Tomasz Zielonka

add import Prelude to get dependencies right for Data/Fixed.hs
Hopefully this fixes parallel builds.

Fix negative index handling in splitAt, replicate and unfoldrN. Move mapF, filterF -> map', filter' while we're here

Use our own realloc. Thus reduction functions (like filter) allocate on the Haskell heap. Makes around 10% difference.

Last two CInt fixes for 64 bit, and bracket writeFile while we're here

Some small optimisations, generalise the type of unfold

    Tue May  9 22:36:29 EST 2006  Duncan Coutts <duncan.coutts@worc.ox.ac.uk>
      * Surely the error function should not be inlined.

    Tue May  9 22:35:53 EST 2006  Duncan Coutts <duncan.coutts@worc.ox.ac.uk>
      * Reorder memory writes for better cache locality.

    Tue May  9 23:28:09 EST 2006  Duncan Coutts <duncan.coutts@worc.ox.ac.uk>
      * Generalise the type of unfoldrN

      The type of unfoldrN was overly constrained:
      unfoldrN :: Int -> (Word8 -> Maybe (Word8, Word8)) -> Word8 -> ByteString

      if we compare that to unfoldr:
      unfoldr :: (b -> Maybe (a, b)) -> b -> [a]

      So we can generalise unfoldrN to this type:
      unfoldrN :: Int -> (a -> Maybe (Word8, a)) -> a -> ByteString

      and something similar for the .Char8 version. If people really do want to
      use it a lot with Word8/Char then perhaps we should add a specialise pragma.

    Wed May 10 13:26:40 EST 2006  Don Stewart <dons@cse.unsw.edu.au>
      * Add foldl', and thus a fusion rule for length . {map,filter,fold},
      that avoids creating an array at all if the end of the pipeline is a 'length' reduction

**END OF DESCRIPTION***

Place the long patch description above the ***END OF DESCRIPTION*** marker.
The first line of this file will be the patch name.

This patch contains the following changes:

M ./Data/ByteString.hs -8 +38
M ./Data/ByteString/Char8.hs -6 +12

portable implementation of WordPtr/IntPtr for non-GHC

plus much tweaking of imports to avoid cycles

add WordPtr and IntPtr types to Foreign.Ptr, with associated conversions

As suggested by John Meacham.

I had to move the Show instance for Ptr into GHC.ForeignPtr to avoid
recursive dependencies.

add CIntPtr, CUIntPtr, CIntMax, CUIntMax types

add GHC.Dynamic

Two things. #if defined(__GLASGOW_HASKELL__) on INLINE [n] pragmas (for jhc). And careful use of INLINE on words/unwords halves runtime for those functions

Make length a good consumer

Make length into a good consumer.  Fixes Trac bug #707.

(Before length simply didn't use foldr.)

Trim imports

Make unsafePerformIO lazy

The stricteness analyser used to have a HACK which ensured that NOINLNE things
were not strictness-analysed.  The reason was unsafePerformIO. Left to itself,
the strictness analyser would discover this strictness for unsafePerformIO:
unsafePerformIO:  C(U(AV))
But then consider this sub-expression
unsafePerformIO (\s -> let r = f x in
       case writeIORef v r s of (# s1, _ #) ->
       (# s1, r #)
The strictness analyser will now find that r is sure to be eval'd,
and may then hoist it out.  This makes tests/lib/should_run/memo002
deadlock.

Solving this by making all NOINLINE things have no strictness info is overkill.
In particular, it's overkill for runST, which is perfectly respectable.
Consider
f x = runST (return x)
This should be strict in x.

So the new plan is to define unsafePerformIO using the 'lazy' combinator:

unsafePerformIO (IO m) = lazy (case m realWorld# of (# _, r #) -> r)

Remember, 'lazy' is a wired-in identity-function Id, of type a->a, which is
magically NON-STRICT, and is inlined after strictness analysis.  So
unsafePerformIO will look non-strict, and that's what we want.

Sync with FPS head.

Mon May  8 10:40:14 EST 2006  Don Stewart <dons@cse.unsw.edu.au>
  * Fix all uses for Int that should be CInt or CSize in ffi imports.
  Spotted by Igloo, dcoutts

Mon May  8 16:09:41 EST 2006  Don Stewart <dons@cse.unsw.edu.au>
  * Import nicer loop/loop fusion rule from ghc-ndp

Mon May  8 17:36:07 EST 2006  Don Stewart <dons@cse.unsw.edu.au>
  * Fix stack leak in split on > 60M strings

Mon May  8 17:50:13 EST 2006  Don Stewart <dons@cse.unsw.edu.au>
  * Try same fix for stack overflow in elemIndices

Fix all uses for Int that should be CInt or CSize in ffi imports. Spotted by Duncan and Ian

Fixed import list syntax

Faster filterF, filterNotByte

Much faster find, findIndex. Hint from sjanssen

Merge "unrecognized long opt" fix from 6.4.2

Sat May  6 13:01:34 EST 2006  Don Stewart <dons@cse.unsw.edu.au>
  * Do loopU realloc on the Haskell heap. And add a really tough stress test

Sat May  6 12:28:58 EST 2006  Don Stewart <dons@cse.unsw.edu.au>
  * Use simple, 3x faster concat. Plus QC properties. Suggested by sjanssen and dcoutts

Sat May  6 15:59:31 EST 2006  Don Stewart <dons@cse.unsw.edu.au>
  * dcoutt's packByte bug squashed

  With inlinePerformIO, ghc head was compiling:

   packByte 255 `compare` packByte 127

  into roughly

   case mallocByteString 2 of
       ForeignPtr f internals ->
            case writeWord8OffAddr# f 0 255 of _ ->
            case writeWord8OffAddr# f 0 127 of _ ->
            case eqAddr# f f of
                   False -> case compare (GHC.Prim.plusAddr# f 0)
                                         (GHC.Prim.plusAddr# f 0)

  which is rather stunning. unsafePerformIO seems to prevent whatever
  magic inlining was leading to this. Only affected the head.

Add array fusion versions of map, filter and foldl

This patch adds fusable map, filter and foldl, using the array fusion
code for unlifted, flat arrays, from the Data Parallel Haskell branch,
after kind help from Roman Leshchinskiy,

Pipelines of maps, filters and folds should now need to walk the
bytestring once only, and intermediate bytestrings won't be constructed.

fix for non-GHC

use bracket in appendFile (like writeFile)

writeFile: close the file on error
Suggested by Ross Paterson, via Neil Mitchell

Sync with FPS head

This patch brings Data.ByteString into sync with the FPS head.
The most significant of which is the new Haskell counting sort.

Changes:

Sun Apr 30 18:16:29 EST 2006  sjanssen@cse.unl.edu
  * Fix foldr1 in Data.ByteString and Data.ByteString.Char8

Mon May  1 11:51:16 EST 2006  Don Stewart <dons@cse.unsw.edu.au>
  * Add group and groupBy. Suggested by conversation between sjanssen and petekaz on #haskell

Mon May  1 16:42:04 EST 2006  sjanssen@cse.unl.edu
  * Fix groupBy to match Data.List.groupBy.

Wed May  3 15:01:07 EST 2006  sjanssen@cse.unl.edu
  * Migrate to counting sort.

  Data.ByteString.sort used C's qsort(), which is O(n log n).  The new algorithm
  is O(n), and is faster for strings larger than approximately thirty bytes.  We
  also reduce our dependency on cbits!

improve performance of Integer->String conversion
See
 http://www.haskell.org//pipermail/libraries/2006-April/005227.html

Submitted by: bertram.felgenhauer@googlemail.com

inline withMVar, modifyMVar, modifyMVar_

Fix string truncating in hGetLine -- it was a pasto from Simon's code
(from Don Stewart)

Merge in Data.ByteString head. Fixes ByteString+cbits in hugs

Import Data.ByteString from fps 0.5.
Fast, packed byte vectors, providing a better PackedString.

fix previous patch

fixes for non-GHC

fix imports for mingw32 && !GHC

RequireOrder: do not collect unrecognised options after a non-opt
The documentation for RequireOrder says "no option processing after
first non-option", so it doesn't seem right that we should process the
rest of the arguments to collect the unrecognised ones.  Presumably
the client wants to know about the unrecognised options up to the
first non-option, and will be using a different option parser for the
rest of the command line.

eg. before:

Prelude System.Console.GetOpt> getOpt' RequireOrder [] ["bar","--foo"]
([],["bar","--foo"],["--foo"],[])

after:

Prelude System.Console.GetOpt> getOpt' RequireOrder [] ["bar","--foo"]
([],["bar","--foo"],[],[])

fix for Haddock 0.7

add Data.Fixed module

add instances

add superclasses to Applicative and Traversable

Functor is now a superclass of Applicative, and Functor and Foldable
are now superclasses of Traversable.  The new hierarchy makes clear the
inclusions between the classes, but means more work in defining instances.
Default definitions are provided to help.

add Functor and Monad instances for Prelude types

GHC.Base.breakpoint

Track the GHC source tree reorganisation

in the show instance for Exception, print the type of dynamic exceptions
Unfortunately this requires some recursve module hackery to get at
the show instance for Typeable.

implement ForeignEnvPtr, newForeignPtrEnv, addForeignPtrEnv for GHC

add  forkOnIO :: Int -> IO () -> IO ThreadId

Rework previous: not a gcc bug after all
It turns out that we were relying on behaviour that is undefined in C,
and undefined behaviour in C means "the compiler can do whatever the
hell it likes with your entire program".  So avoid that.

work around a gcc 4.1.0 codegen bug in -O2 by forcing -O1 for GHC.Show
See http://gcc.gnu.org/bugzilla/show_bug.cgi?id=26824

commit mysteriously missing parts of "runIOFastExit" patch

add runIOFastExit :: IO a -> IO a
Similar to runIO, but calls stg_exit() directly to exit, rather than
shutdownHaskellAndExit().  Needed for running GHCi in the test suite.

Fix a broken invariant
Patch from #694,  for the problem "empty is an identity for <> and $$" is
currently broken by eg. isEmpty (empty<>empty)"

Add unsafeSTToIO :: ST s a -> IO a
Implementation for Hugs is missing, but should be easy.  We need this
for the forthcoming nested data parallelism implementation.

Added 'alter'
Added 'alter :: (Maybe a -> Maybe a) -> k -> Map k a -> Map k a' to IntMap and Map
This addresses ticket #665

deprecate FunctorM in favour of Foldable and Traversable
as discussed on the libraries list.

Simplify Eq, Ord, and Show instances for UArray
The Eq, Ord, and Show instances of UArray were written out longhand
with one instance per element type.  It is possible to condense these
into a single instance for each class, at the expense of using more
extensions (non-std context on instance declaration).

Suggestion by: Frederik Eaton <frederik@ofb.net>

Oops typo in intSet notMember

IntMap lookup now returns monad instead of Maybe.

Added notMember to Data.IntSet and Data.IntMap

add Data.Set.notMember and Data.Map.notMember

addToClockTime: handle picoseconds properly
fixes #588

make head/build rule apply to all types, not just Bool.

Avoid overflow when normalising clock times

Years have 365 days, not 30*365

declare blkcmp() static

typo in comment in Foldable class

simplify fmap

update ref in comment

Give -foverlapping-instances to Data.Typeable

For some time, GHC has made -fallow-overlapping-instances "sticky":
any instance in a module compiled with -fallow-overlapping-instances
can overlap when imported, regardless of whether the importing module
allows overlap.  (If there is an overlap, both instances must come from
modules thus compiled.)

Instances in Data.Typeable might well want to be overlapped, so this
commit adds the flag to Data.Typeable (with an explanatory comment)

Add -fno-bang-patterns to modules using both bang and glasgow-exts

When splitting a bucket, keep the contents in the same order
To retain the property that multiple inserts shadow each other
(see ticket #661, test hash001)

add foldr/build optimisation for take and replicate
This allows take to be deforested, and improves performance of
replicate and replicateM/replicateM_.  We have a separate problem that
means expressions involving [n..m] aren't being completely optimised
because eftIntFB isn't being inlined but otherwise the results look
good.

Sadly this has invalidated a number of the nofib benchmarks which were
erroneously using take to duplicate work in a misguided attempt to
lengthen their runtimes (ToDo).

Generate PrimopWrappers.hs with Haddock docs
Patch originally from Dinko Tenev <dinko.tenev@gmail.com>, modified
to add log message by me.

[project @ 2006-01-19 14:47:15 by ross]
backport warning avoidance from Haddock

[project @ 2006-01-18 11:45:47 by malcolm]
Fix import of Ix for nhc98.