Annoying Warning Message Due to Missing ! about alex HOT 2 CLOSED

I guess you can suppress it with -funbox-strict-field.

from alex.

On 29/08/2011 22:20, DylanLukes wrote:

The following pretty clearly describes the issue with the generated code on it's own. I'll let it speak for itself. Not a major issue, but the warning is annoying and I can't suppress it even with {-# OPTIONS_GHC -w #-}.

Yes, the problem is that in GHC we went back and forth on this decision
a couple of times. In 7.2.1 you shouldn't see the warnings.

I'm surprised that you can't supress them. Perhaps you have the
OPTIONS_GHC pragma in the wrong place?

Cheers,
Simon

dist/build/stgma/stgma-tmp/Scan.hs:315:17:
     Warning: Pattern bindings containing unlifted types should use an outermost bang pattern:
                ((I# (ord_c))) = fromIntegral c
     In the expression:
       let
         (base) = alexIndexInt32OffAddr alex_base s
         ((I# (ord_c))) = fromIntegral c
         (offset) = (base +# ord_c)
         ....
       in
         case new_s of {
           -1# ->  (new_acc, input)
           _ ->  alex_scan_tkn
                  user
                  orig_input
                  (if c<  128 || c>= 192 then (len +# 1#) else len)
                  new_input
                  new_s
                  new_acc }
     In a case alternative:
         Just (c, new_input)
           ->  let
                (base) = alexIndexInt32OffAddr alex_base s
                ((I# (ord_c))) = fromIntegral c
                ....
              in
                case new_s of {
                  -1# ->  (new_acc, input)
                  _ ->  alex_scan_tkn
                         user
                         orig_input
                         (if c<  128 || c>= 192 then (len +# 1#) else len)
                         new_input
                         new_s
                         new_acc }
     In the second argument of `seq', namely
       `case alexGetByte input of {
          Nothing ->  (new_acc, input)
          Just (c, new_input)
            ->  let
                 (base) = ...
                 ....
               in
                 case new_s of {
                   -1# ->  ...
                   _ ->  alex_scan_tkn
                          user
                          orig_input
                          (if c<  128 || c>= 192 then (len +# 1#) else len)
                          new_input
                          new_s
                          new_acc } }'

from alex.