[Haskell-cafe] Re: Haddock : parse error on input `{-# UNPACK'

[Dominic Steinitz]

Dominic Steinitz <dominic <at> steinitz.org> writes:

> 
> Erik de Castro Lopo <mle+hs <at> mega-nerd.com> writes:
> 
> > 
> > Dominic Steinitz wrote:
> > 
> > > Erik de Castro Lopo <mle+hs <at> mega-nerd.com> writes:
> > > 
> > > > 
> > > >   src/Data/Binary/Strict/IncrementalGet.hs:106:11:
> > > >       parse error on input `{-# UNPACK'
> > > > 
> > > 
> > > This is a haddock error and I presume a bug in haddock.
> > 
> > Well I raised a bug here:
> > 
> >     http://trac.haskell.org/haddock/ticket/109
> > 

Ha! It's yet another of haddock's quirks. If I replace -- ^ by -- then haddock
accepts {-#. I'll update the ticket you created.

-- | The parse state
data S = S {-# UNPACK #-} !BL.ByteString  -- ^ input
           {-# UNPACK #-} !Int  -- ^ bytes read
           {-# UNPACK #-} ![B.ByteString]
           {-# UNPACK #-} !Int  -- ^ the failure depth

-- | The parse state
data S = S {-# UNPACK #-} !BL.ByteString  -- input
           {-# UNPACK #-} !Int  -- bytes read
           {-# UNPACK #-} ![B.ByteString]
           {-# UNPACK #-} !Int  -- the failure depth

Dominic.