Changeset 3148

Timestamp:

05/13/05 14:43:34 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

4718

Message:

* minor cleanup.

Files:

• Makefile.PL (modified) (1 diff)
• src/Pugs/Monads.hs (modified) (3 diffs)

Makefile.PL

@@ -200 +200 @@
         haddock -t Pugs-$version -h -o docs/haddock/ @hppfiles
         \@\$(RM_F) @{[map "$_.pre", @hppfiles]} @hppfiles
-        \@\$(PERL) -le "print and print q-*** API Documentation generated in @{[File::Spec->catfile('docs', 'haddock', 'index.html')]}.-"
+        \@\$(PERL) -le "print and print q-*** API Documentation generated in @{[File::Spec->catfile('docs', 'haddock', 'index.html')]}-"
 
 docs/haddock :

src/Pugs/Monads.hs

@@ -2 +2 @@
 
 {-|
-    Monad structures.
+    Common operations on Eval monad.
     
-    Note that there aren't actually any monads defined here--try looking in
-    "Pugs.AST.SIO" and "Pugs.AST.Internals".
-
 >   One Ring to rule them all,
 >   One Ring to find them,
@@ -19 +16 @@
 import Pugs.Types
 
-headVal :: [Val] -> Eval Val
-headVal []    = retEmpty
-headVal (v:_) = return v
+{-|
+    Note that the actual monads are defined elsewhere -- try looking at
+    "Pugs.AST.SIO" and "Pugs.AST.Internals".
+-}
 
 -- |Perform the specified evaluation in a lexical scope that has been
@@ -188 +186 @@
         _ -> do
             return val
+
+headVal :: [Val] -> Eval Val
+headVal []    = retEmpty
+headVal (v:_) = return v
+