Changeset 13260 for src/Pugs/Val

Timestamp:

09/13/06 16:23:15 (2 years ago)

Author:

gaal

Message:

* expose a build break and fix it (#include--)
* positionals are not required named args
* print, but not parse, :($ :)
* add the desired sig to test description, to ease analysis

of parsefails.

Files:

• src/Pugs/Val/Code.hs (modified) (1 diff)

src/Pugs/Val/Code.hs

@@ -146 +146 @@
     
 prettySig :: Sig -> Doc
-prettySig s@(SigMethSingle {}) = (prettyParam (s_invocant s) True True) <> colon `invSpace` (prettySubSig s)
+prettySig s@(SigMethSingle {}) = invocant <> colon `invSpace` (prettySubSig s)
     where
+    invocant = if (v_name $ p_variable $ s_invocant s) == nullID then text "$ " else prettyParam (s_invocant s) True True
     invSpace :: Doc -> Doc -> Doc
     invSpace = if (isEmpty $ prettySubSig s) then (<>) else (<+>)