[haddock] #109: Haddock : parse error on input `{-# UNPACK'

[haddock]

#109: Haddock :  parse error on input `{-# UNPACK'
-------------------------+--------------------------------------------------
Reporter:  erikd         |        Owner:       
    Type:  defect        |       Status:  new  
Priority:  major         |    Milestone:  2.5.0
 Version:  2.4.2         |   Resolution:       
Keywords:  parse UNPACK  |  
-------------------------+--------------------------------------------------
Comment (by dominic):

 Haddock rejects this:

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

 But accepts this:

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

-- 
Ticket URL: <http://trac.haskell.org/haddock/ticket/109#comment:1>
haddock <http://www.haskell.org/haddock>
Haddock, The Haskell Documentation Tool