language-eiffel 0.1 → 0.1.1

raw patch · 3 files changed

+21/−25 lines, 3 files

Files

• Language/Eiffel/Syntax.hs +0/−2
• dist/build/Language/Eiffel/Parser/Lex.hs +19/−21
• language-eiffel.cabal +2/−2

@@ -493,5 +493,3 @@  makeLenses ''ExportedFeature makeLenses ''FeatureMap--{-# INLINE fmRoutines #-}

@@ -1,4 +1,4 @@-{-# LANGUAGE CPP,MagicHash,BangPatterns #-}+{-# LANGUAGE CPP,MagicHash #-} {-# LINE 1 "Language/Eiffel/Parser/Lex.x" #-}  {-# LANGUAGE OverloadedStrings #-}@@ -80,7 +80,6 @@ #endif {-# LINE 1 "templates/wrappers.hs" #-} {-# LINE 1 "templates/wrappers.hs" #-}-{-# LINE 1 "<built-in>" #-} {-# LINE 1 "<command-line>" #-} {-# LINE 1 "templates/wrappers.hs" #-} -- -----------------------------------------------------------------------------@@ -103,7 +102,7 @@ -- ----------------------------------------------------------------------------- -- The input type -{-# LINE 71 "templates/wrappers.hs" #-}+{-# LINE 72 "templates/wrappers.hs" #-}   type AlexInput = (AlexPosn,     -- current position,@@ -122,9 +121,9 @@                                     in p' `seq` cs' `seq` Just (b, (p', c, cs'))  -{-# LINE 102 "templates/wrappers.hs" #-}+{-# LINE 103 "templates/wrappers.hs" #-} -{-# LINE 117 "templates/wrappers.hs" #-}+{-# LINE 118 "templates/wrappers.hs" #-}  -- ----------------------------------------------------------------------------- -- Token positions@@ -152,7 +151,7 @@ -- ----------------------------------------------------------------------------- -- Default monad -{-# LINE 230 "templates/wrappers.hs" #-}+{-# LINE 231 "templates/wrappers.hs" #-}   -- -----------------------------------------------------------------------------@@ -247,15 +246,15 @@ -- ----------------------------------------------------------------------------- -- Basic wrapper -{-# LINE 345 "templates/wrappers.hs" #-}+{-# LINE 346 "templates/wrappers.hs" #-}   -- ----------------------------------------------------------------------------- -- Basic wrapper, ByteString version -{-# LINE 363 "templates/wrappers.hs" #-}+{-# LINE 364 "templates/wrappers.hs" #-} -{-# LINE 376 "templates/wrappers.hs" #-}+{-# LINE 377 "templates/wrappers.hs" #-}   -- -----------------------------------------------------------------------------@@ -263,13 +262,13 @@  -- Adds text positions to the basic model. -{-# LINE 393 "templates/wrappers.hs" #-}+{-# LINE 394 "templates/wrappers.hs" #-}   -- ----------------------------------------------------------------------------- -- Posn wrapper, ByteString version -{-# LINE 408 "templates/wrappers.hs" #-}+{-# LINE 409 "templates/wrappers.hs" #-}   -- -----------------------------------------------------------------------------@@ -735,7 +734,6 @@ alex_action_21 =  withPos (tokConst LexError)  {-# LINE 1 "templates/GenericTemplate.hs" #-} {-# LINE 1 "templates/GenericTemplate.hs" #-}-{-# LINE 1 "<built-in>" #-} {-# LINE 1 "<command-line>" #-} {-# LINE 1 "templates/GenericTemplate.hs" #-} -- -----------------------------------------------------------------------------@@ -763,10 +761,10 @@ #ifdef WORDS_BIGENDIAN   narrow16Int# i   where-        !i    = word2Int# ((high `uncheckedShiftL#` 8#) `or#` low)-        !high = int2Word# (ord# (indexCharOffAddr# arr (off' +# 1#)))-        !low  = int2Word# (ord# (indexCharOffAddr# arr off'))-        !off' = off *# 2#+        i    = word2Int# ((high `uncheckedShiftL#` 8#) `or#` low)+        high = int2Word# (ord# (indexCharOffAddr# arr (off' +# 1#)))+        low  = int2Word# (ord# (indexCharOffAddr# arr off'))+        off' = off *# 2# #else   indexInt16OffAddr# arr off #endif@@ -863,12 +861,12 @@   	let-		(!(base)) = alexIndexInt32OffAddr alex_base s-		(!((I# (ord_c)))) = fromIntegral c-		(!(offset)) = (base +# ord_c)-		(!(check))  = alexIndexInt16OffAddr alex_check offset+		(base) = alexIndexInt32OffAddr alex_base s+		((I# (ord_c))) = fromIntegral c+		(offset) = (base +# ord_c)+		(check)  = alexIndexInt16OffAddr alex_check offset 		-		(!(new_s)) = if (offset >=# 0#) && (check ==# ord_c)+		(new_s) = if (offset >=# 0#) && (check ==# ord_c) 			  then alexIndexInt16OffAddr alex_table offset 			  else alexIndexInt16OffAddr alex_deflt s 	in

@@ -7,7 +7,7 @@ -- The package version. See the Haskell package versioning policy -- (http://www.haskell.org/haskellwiki/Package_versioning_policy) for -- standards guiding when and how versions should be incremented.-Version:             0.1+Version:             0.1.1  -- A short (one-line) description of the package. Synopsis:           Parser and pretty printer for the Eiffel language. @@ -89,4 +89,4 @@ source-repository this   type:     git   location: https://github.com/scottgw/language-eiffel-  tag:      0.1+  tag:      0.1.1