Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Remove bang patterns again

They sneaked back in during the big Unicode commit,
892688f
  • Loading branch information...
commit 41e3758b5cc8fc85b7901f59270f6ce550d5ea98 1 parent 088d158
Simon Marlow authored

Showing 1 changed file with 6 additions and 6 deletions. Show diff stats Hide diff stats

  1. +6 6 templates/GenericTemplate.hs
12 templates/GenericTemplate.hs
@@ -74,14 +74,14 @@ alexIndexInt32OffAddr (AlexA# arr) off =
74 74 ALEX_IF_BIGENDIAN
75 75 narrow32Int# i
76 76 where
77   - !i = word2Int# ((b3 `uncheckedShiftL#` 24#) `or#`
  77 + i = word2Int# ((b3 `uncheckedShiftL#` 24#) `or#`
78 78 (b2 `uncheckedShiftL#` 16#) `or#`
79 79 (b1 `uncheckedShiftL#` 8#) `or#` b0)
80   - !b3 = int2Word# (ord# (indexCharOffAddr# arr (off' +# 3#)))
81   - !b2 = int2Word# (ord# (indexCharOffAddr# arr (off' +# 2#)))
82   - !b1 = int2Word# (ord# (indexCharOffAddr# arr (off' +# 1#)))
83   - !b0 = int2Word# (ord# (indexCharOffAddr# arr off'))
84   - !off' = off *# 4#
  80 + b3 = int2Word# (ord# (indexCharOffAddr# arr (off' +# 3#)))
  81 + b2 = int2Word# (ord# (indexCharOffAddr# arr (off' +# 2#)))
  82 + b1 = int2Word# (ord# (indexCharOffAddr# arr (off' +# 1#)))
  83 + b0 = int2Word# (ord# (indexCharOffAddr# arr off'))
  84 + off' = off *# 4#
85 85 ALEX_ELSE
86 86 indexInt32OffAddr# arr off
87 87 ALEX_ENDIF

0 comments on commit 41e3758

Please sign in to comment.
Something went wrong with that request. Please try again.