summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorScottWest <>2013-02-12 12:58:16 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2013-02-12 12:58:16 (GMT)
commit2ddd0025544406f27553036ca09d026d6de2a304 (patch)
tree5bf5c29ab875a4d43ba08be70b2cba406f895485
parenta9f4782d59ac9816e1b8c842af9ab622bc869c7a (diff)
version 0.1.10.1.1
-rw-r--r--Language/Eiffel/Syntax.hs2
-rw-r--r--dist/build/Language/Eiffel/Parser/Lex.hs40
-rw-r--r--language-eiffel.cabal4
3 files changed, 21 insertions, 25 deletions
diff --git a/Language/Eiffel/Syntax.hs b/Language/Eiffel/Syntax.hs
index 8850fda..103d1d4 100644
--- a/Language/Eiffel/Syntax.hs
+++ b/Language/Eiffel/Syntax.hs
@@ -493,5 +493,3 @@ $( derive makeNFData ''AbsClas )
makeLenses ''ExportedFeature
makeLenses ''FeatureMap
-
-{-# INLINE fmRoutines #-} \ No newline at end of file
diff --git a/dist/build/Language/Eiffel/Parser/Lex.hs b/dist/build/Language/Eiffel/Parser/Lex.hs
index 069d41c..53cf713 100644
--- a/dist/build/Language/Eiffel/Parser/Lex.hs
+++ b/dist/build/Language/Eiffel/Parser/Lex.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE CPP,MagicHash,BangPatterns #-}
+{-# LANGUAGE CPP,MagicHash #-}
{-# LINE 1 "Language/Eiffel/Parser/Lex.x" #-}
{-# LANGUAGE OverloadedStrings #-}
@@ -80,7 +80,6 @@ import GlaExts
#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 @@ type Byte = Word8
-- -----------------------------------------------------------------------------
-- The input type
-{-# LINE 71 "templates/wrappers.hs" #-}
+{-# LINE 72 "templates/wrappers.hs" #-}
type AlexInput = (AlexPosn, -- current position,
@@ -122,9 +121,9 @@ alexGetByte (p,_,cs) | ByteString.null cs = Nothing
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 @@ alexMove (AlexPn a l c) _ = AlexPn (a+1) l (c+1)
-- -----------------------------------------------------------------------------
-- Default monad
-{-# LINE 230 "templates/wrappers.hs" #-}
+{-# LINE 231 "templates/wrappers.hs" #-}
-- -----------------------------------------------------------------------------
@@ -247,15 +246,15 @@ token t input len = return (t input len)
-- -----------------------------------------------------------------------------
-- 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 @@ token t input len = return (t input len)
-- 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_20 = withPos (tokConst EOF)
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 @@ alexIndexInt16OffAddr (AlexA# arr) off =
#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 @@ alex_scan_tkn user orig_input len input s last_acc =
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
diff --git a/language-eiffel.cabal b/language-eiffel.cabal
index 10eca6b..043bee4 100644
--- a/language-eiffel.cabal
+++ b/language-eiffel.cabal
@@ -7,7 +7,7 @@ Name: language-eiffel
-- 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 @@ Library
source-repository this
type: git
location: https://github.com/scottgw/language-eiffel
- tag: 0.1 \ No newline at end of file
+ tag: 0.1.1