Everything up until here was good. (Brand new Arch with everything
updated) Then at Lexer.hs:
* Compiling src/Source/Lexer.hs
src/Source/Lexer.hs:872:17:
Warning: Bindings containing unlifted types should use an
outermost bang pattern:
(base) = alexIndexInt32OffAddr alex_base s
In the expression:
let
(base) = alexIndexInt32OffAddr alex_base s
((I# (ord_c))) = ord c
(offset) = (base +# ord_c)
....
in
case new_s of {
-1# -> (new_acc, input)
_ -> alex_scan_tkn
user orig_input (len +# 1#) new_input new_s new_acc }
In a case alternative:
Just (c, new_input)
-> let
(base) = alexIndexInt32OffAddr alex_base s
((I# (ord_c))) = ord c
....
in
case new_s of {
-1# -> (new_acc, input)
_ -> alex_scan_tkn
user orig_input (len +# 1#) new_input new_s
new_acc }
In the second argument of case alexGetChar input of {
Nothing -> (new_acc, input)
Just (c, new_input)
-> let
(base) = ...
....
in
case new_s of {
-1# -> ...
_ -> alex_scan_tkn
user orig_input (len +# 1#) new_input new_s
new_acc } }'
src/Source/Lexer.hs:873:17:
Warning: Bindings containing unlifted types should use an
outermost bang pattern:
((I# (ord_c))) = ord c
In the expression:
let
(base) = alexIndexInt32OffAddr alex_base s
((I# (ord_c))) = ord c
(offset) = (base +# ord_c)
....
in
case new_s of {
-1# -> (new_acc, input)
_ -> alex_scan_tkn
user orig_input (len +# 1#) new_input new_s new_acc }
In a case alternative:
Just (c, new_input)
-> let
(base) = alexIndexInt32OffAddr alex_base s
((I# (ord_c))) = ord c
....
in
case new_s of {
-1# -> (new_acc, input)
_ -> alex_scan_tkn
user orig_input (len +# 1#) new_input new_s
new_acc }
In the second argument of case alexGetChar input of {
Nothing -> (new_acc, input)
Just (c, new_input)
-> let
(base) = ...
....
in
case new_s of {
-1# -> ...
_ -> alex_scan_tkn
user orig_input (len +# 1#) new_input new_s
new_acc } }'
src/Source/Lexer.hs:874:17:
Warning: Bindings containing unlifted types should use an
outermost bang pattern:
(offset) = (base +# ord_c)
In the expression:
let
(base) = alexIndexInt32OffAddr alex_base s
((I# (ord_c))) = ord c
(offset) = (base +# ord_c)
....
in
case new_s of {
-1# -> (new_acc, input)
_ -> alex_scan_tkn
user orig_input (len +# 1#) new_input new_s new_acc }
In a case alternative:
Just (c, new_input)
-> let
(base) = alexIndexInt32OffAddr alex_base s
((I# (ord_c))) = ord c
....
in
case new_s of {
-1# -> (new_acc, input)
_ -> alex_scan_tkn
user orig_input (len +# 1#) new_input new_s
new_acc }
In the second argument of case alexGetChar input of {
Nothing -> (new_acc, input)
Just (c, new_input)
-> let
(base) = ...
....
in
case new_s of {
-1# -> ...
_ -> alex_scan_tkn
user orig_input (len +# 1#) new_input new_s
new_acc } }'
src/Source/Lexer.hs:875:17:
Warning: Bindings containing unlifted types should use an
outermost bang pattern:
(check) = alexIndexInt16OffAddr alex_check offset
In the expression:
let
(base) = alexIndexInt32OffAddr alex_base s
((I# (ord_c))) = ord c
(offset) = (base +# ord_c)
....
in
case new_s of {
-1# -> (new_acc, input)
_ -> alex_scan_tkn
user orig_input (len +# 1#) new_input new_s new_acc }
In a case alternative:
Just (c, new_input)
-> let
(base) = alexIndexInt32OffAddr alex_base s
((I# (ord_c))) = ord c
....
in
case new_s of {
-1# -> (new_acc, input)
_ -> alex_scan_tkn
user orig_input (len +# 1#) new_input new_s
new_acc }
In the second argument of case alexGetChar input of {
Nothing -> (new_acc, input)
Just (c, new_input)
-> let
(base) = ...
....
in
case new_s of {
-1# -> ...
_ -> alex_scan_tkn
user orig_input (len +# 1#) new_input new_s
new_acc } }'
src/Source/Lexer.hs:877:17:
Warning: Bindings containing unlifted types should use an
outermost bang pattern:
(new_s)
= if (offset >=# 0#) && (check ==# ord_c) then
alexIndexInt16OffAddr alex_table offset
else
alexIndexInt16OffA
In the expression:
let
(base) = alexIndexInt32OffAddr alex_base s
((I# (ord_c))) = ord c
(offset) = (base +# ord_c)
....
in
case new_s of {
-1# -> (new_acc, input)
_ -> alex_scan_tkn
user orig_input (len +# 1#) new_input new_s new_acc }
In a case alternative:
Just (c, new_input)
-> let
(base) = alexIndexInt32OffAddr alex_base s
((I# (ord_c))) = ord c
....
in
case new_s of {
-1# -> (new_acc, input)
_ -> alex_scan_tkn
user orig_input (len +# 1#) new_input new_s
new_acc }
In the second argument of case alexGetChar input of {
Nothing -> (new_acc, input)
Just (c, new_input)
-> let
(base) = ...
....
in
case new_s of {
-1# -> ...
_ -> alex_scan_tkn
user orig_input (len +# 1#) new_input new_s
new_acc } }'
<no location info>:
Failing due to -Werror.
make[2]: *** [src/Source/Lexer.o] Error 1
--
Disciple-Cafe mailing list
http://groups.google.com/group/disciple-cafe
