* Pugs.Eval -- Silenced a warning about an unused parameter.

* Pugs.Parser -- Extremely minor cosmetical fix.
* READTHEM -- Added my favourite Monad tutorial :)



git-svn-id: http://svn.pugscode.org/pugs@4457 c213334d-75ef-0310-aa23-eaa082d1ae64

READTHEM

@@ -29,6 +29,8 @@ Haskell Mini-Primer                    (this covers infix $ and . operators)
   <http://conal.net/pan/haskell-primer.htm>  
 Harrorth  - A implemenation journal for a haskell project in tutorial format
   <http://feather.perl6.nl/~nothingmuch/harrorth/>
+All About Monads                                              - Jeff Newbern
+  <http://www.nomaware.com/monads/html/index.html>
 
 = Perl 6 books (always outdated :))
 

src/Pugs/Eval.hs

@@ -242,7 +242,7 @@ findVarRef name
         vref   <- liftSTM (readTVar tvref)
         let val = VRef vref
         return (key, val)
-    padEntryToHashEntry (key, []) = do fail "Nonexistant var in pad?"
+    padEntryToHashEntry (_, []) = do fail "Nonexistant var in pad?"
     doFindVarRef :: Var -> Eval (Maybe (TVar VRef))
     doFindVarRef name = do
         callCC $ \foundIt -> do

src/Pugs/Parser.hs

@@ -982,7 +982,7 @@ parseOpWith :: (DynParsers -> RuleParser Exp) -> RuleParser Exp
 parseOpWith f = do
     state <- getState
     case ruleDynParsers state of
-        MkDynParsersEmpty    -> refillCache state f
+        MkDynParsersEmpty   -> refillCache state f
         p                   -> f p
     where
     refillCache state f = do