Changeset 4886 for src/Pugs/Compile

Timestamp:

06/20/05 22:00:35 (3 years ago)

Author:

autrijus

svk:copy_cache_prev:

6641

Message:

* add some missing type sigs.

Files:

• src/Pugs/Compile/PIR.hs (modified) (1 diff)

src/Pugs/Compile/PIR.hs

@@ -567 +567 @@
     tellIns $ "returncc" .- []
 
--- XXX - slurpiness
+prmToSig :: Param -> Sig
 prmToSig prm = MkSig (prmToArgs prm) . bare $ prmToIdent prm
+
+prmToArgs :: Param -> [ArgFlag]
 prmToArgs prm = combine 
     [ if isSlurpy prm then (MkArgSlurpyArray:) else id
     , if isOptional prm then (MkArgOptional:) else id
     ] []
+
+prmToIdent :: Param -> String
 prmToIdent = render . varText . paramName
+
+storeLex :: TParam -> Trans ()
 storeLex param = do
     let var = paramName prm