Changeset 3148 for src/Pugs/Monads.hs

Show
Ignore:
Timestamp:
05/13/05 14:43:34 (4 years ago)
Author:
autrijus
svk:copy_cache_prev:
4718
Message:

* minor cleanup.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Monads.hs

    r3144 r3148  
    22 
    33{-| 
    4     Monad structures. 
     4    Common operations on Eval monad. 
    55     
    6     Note that there aren't actually any monads defined here--try looking in 
    7     "Pugs.AST.SIO" and "Pugs.AST.Internals". 
    8  
    96>   One Ring to rule them all, 
    107>   One Ring to find them, 
    … …  
    1916import Pugs.Types 
    2017 
    21 headVal :: [Val] -> Eval Val 
    22 headVal []    = retEmpty 
    23 headVal (v:_) = return v 
     18{-| 
     19    Note that the actual monads are defined elsewhere -- try looking at 
     20    "Pugs.AST.SIO" and "Pugs.AST.Internals". 
     21-} 
    2422 
    2523-- |Perform the specified evaluation in a lexical scope that has been 
    … …  
    188186        _ -> do 
    189187            return val 
     188 
     189headVal :: [Val] -> Eval Val 
     190headVal []    = retEmpty 
     191headVal (v:_) = return v 
     192