diff --git a/src/Text/Trifecta/Rope.hs b/src/Text/Trifecta/Rope.hs index f27ee41..331616a 100644 --- a/src/Text/Trifecta/Rope.hs +++ b/src/Text/Trifecta/Rope.hs @@ -30,14 +30,13 @@ 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 @@ -45,7 +44,7 @@ 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 diff --git a/trifecta.cabal b/trifecta.cabal index 96586b0..482c670 100644 --- a/trifecta.cabal +++ b/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