Replace LineDirective with more general Skipping in Rope

src/Text/Trifecta/Rope.hs

@@ -30,22 +30,21 @@ import Data.FingerTree as FingerTree
 import GHC.Generics
 import Data.Foldable (toList)
 import Data.Hashable
-import Data.Int (Int64)
 import Text.Trifecta.Util.Combinators as Util
 import Text.Trifecta.Delta
 import Data.Data
 
 data Strand
   = Strand        {-# UNPACK #-} !ByteString !Delta
-  | LineDirective {-# UNPACK #-} !ByteString {-# UNPACK #-} !Int64
+  | Skipping !Delta
   deriving (Show, Data, Typeable, Generic)
 
 strand :: ByteString -> Strand
 strand bs = Strand bs (delta bs)
 
 instance Measured Delta Strand where
   measure (Strand _ s) = delta s
-  measure (LineDirective p l) = delta (Directed p l 0 0 0)
+  measure (Skipping d) = d
 
 instance Hashable Strand
 

trifecta.cabal

@@ -1,6 +1,6 @@
 name:          trifecta
 category:      Text, Parsing, Diagnostics, Pretty Printer, Logging
-version:       1.0
+version:       1.1
 license:       BSD3
 cabal-version: >= 1.10
 license-file:  LICENSE