Changeset 185

Timestamp:

02/22/05 18:18:20 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

1041

Message:

* lwall says that 'but' and 'does' is noneAssoc.

Location:

src

Files:

• Help.hs (modified) (2 diffs)
• Parser.hs (modified) (1 diff)

src/Help.hs

@@ -34 +34 @@
 version    = name ++ ", version " ++ versnum ++ ", " ++ date
 copyright  = "Copyright 2005 by Autrijus Tang"
-revision   = "$Rev$"
+revision   = ('r':) . init . init . drop 6 $ "$Rev$"
 disclaimer =
     "This software is distributed under the terms of the " ++
@@ -54 +54 @@
     , "||      `===='  ___|| `==='   World Wide Web: http://autrijus.org/pugs "
     , "||             `===='         Report bugs to: autrijus@autrijus.org    "
-    , "==" ++ versionFill 31 ++        " ====================================="
+    , "==" ++ versionFill 27 ++        " ====================================="
     ]
 

src/Parser.hs

@@ -336 +336 @@
     , leftOps  " ^ | "                                  -- Junctive Or
     , preOps   unary                                    -- Named Unary
-    , leftOps  " but does "                             -- Traits
+    , noneOps  " but does "                             -- Traits
       ++ rightOps " => "                                -- Pair constructor
       ++ noneOps " cmp <=> .. ^.. ..^ ^..^ "            -- Non-chaining Binary