Changeset 22317 for src/Pugs/Prim.hs
- Timestamp:
- 09/23/08 18:23:52 (2 months ago)
- Files:
-
- 1 modified
-
src/Pugs/Prim.hs (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
src/Pugs/Prim.hs
r22309 r22317 519 519 "as they would be invalid at runtime." 520 520 return rv 521 op1 " system" = \v -> do521 op1 "run" = \v -> do 522 522 cmd <- fromVal v 523 523 exitCode <- tryIO (ExitFailure (-1)) $ system (encodeUTF8 cmd) … … 1130 1130 VStr s -> printf str s 1131 1131 _ -> fail "should never be reached given the type declared below" 1132 op2 " system" = \x y -> do1132 op2 "run" = \x y -> do 1133 1133 prog <- fromVal x 1134 1134 args <- fromVals y … … 2052 2052 \\n List pre readdir unsafe (Str)\ 2053 2053 \\n Bool pre Pugs::Internals::exec unsafe (Str, Bool, List)\ 2054 \\n Int pre systemunsafe (Str)\2055 \\n Int pre systemunsafe (Str: List)\2054 \\n Int pre run unsafe (Str)\ 2055 \\n Int pre run unsafe (Str: List)\ 2056 2056 \\n Bool pre binmode unsafe (IO: ?Int=1)\ 2057 2057 \\n Void pre return safe ()\
