Commit d2c42ab4 authored by simonpj@microsoft.com's avatar simonpj@microsoft.com

Comments and variable naming only

parent 29e9a63f
...@@ -32,7 +32,7 @@ ...@@ -32,7 +32,7 @@
{ {
{-# OPTIONS -Wwarn -w #-} {-# OPTIONS -Wwarn -w #-}
-- The above warning supression flag is a temporary kludge. -- The above -Wwarn supression flag is a temporary kludge.
-- While working on this module you are encouraged to remove it and fix -- While working on this module you are encouraged to remove it and fix
-- any warnings in the module. See -- any warnings in the module. See
-- http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings -- http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings
...@@ -880,12 +880,12 @@ withLexedDocType lexDocComment = do ...@@ -880,12 +880,12 @@ withLexedDocType lexDocComment = do
-- RULES pragmas turn on the forall and '.' keywords, and we turn them -- RULES pragmas turn on the forall and '.' keywords, and we turn them
-- off again at the end of the pragma. -- off again at the end of the pragma.
rulePrag :: Action rulePrag :: Action
rulePrag span _ _ = do rulePrag span _buf _len = do
setExts (.|. bit inRulePragBit) setExts (.|. bit inRulePragBit)
return (L span ITrules_prag) return (L span ITrules_prag)
endPrag :: Action endPrag :: Action
endPrag span _ _ = do endPrag span _buf _len = do
setExts (.&. complement (bit inRulePragBit)) setExts (.&. complement (bit inRulePragBit))
return (L span ITclose_prag) return (L span ITclose_prag)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment