X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=utils%2Fhpc%2FHpcParser.y;h=01307bf565d17a1f14c934c9c8d962ebf5923b34;hb=8e4e15d8e837b90190b6b8e7645822772cab2053;hp=bfdf9a862f4b08dbc9dc8145a48908b8a6de6729;hpb=ad94d40948668032189ad22a0ad741ac1f645f50;p=ghc-hetmet.git diff --git a/utils/hpc/HpcParser.y b/utils/hpc/HpcParser.y index bfdf9a8..01307bf 100644 --- a/utils/hpc/HpcParser.y +++ b/utils/hpc/HpcParser.y @@ -1,9 +1,18 @@ { -{-# OPTIONS -w #-} +{-# LANGUAGE BangPatterns #-} -- required for versions of Happy before 1.18.6 +{-# OPTIONS -Wwarn -XNoMonomorphismRestriction #-} +-- The NoMonomorphismRestriction deals with a Happy infelicity +-- With OutsideIn's more conservativ monomorphism restriction +-- we aren't generalising +-- notHappyAtAll = error "urk" +-- which is terrible. Switching off the restriction allows +-- the generalisation. Better would be to make Happy generate +-- an appropriate signature. +-- -- The above warning supression flag is a temporary kludge. -- While working on this module you are encouraged to remove it and fix -- any warnings in the module. See --- http://hackage.haskell.org/trac/ghc/wiki/CodingStyle#Warnings +-- http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings -- for details module HpcParser where @@ -12,6 +21,7 @@ import HpcLexer } %name parser +%expect 0 %tokentype { Token } %token @@ -31,7 +41,7 @@ import HpcLexer '}' { SYM '}' } int { INT $$ } string { STR $$ } - cat { STR $$ } + cat { CAT $$ } %% Spec :: { Spec }