diff options
Diffstat (limited to 'sil.icl')
| -rw-r--r-- | sil.icl | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -97,7 +97,7 @@ Start w # (_,w) = fclose f w | not args.generate = finish 0 io err w -# (p,w) = callProcess "/opt/clean/bin/clm" ["sil_compiled", "-o", "sil_compiled"] Nothing w +# (p,w) = callProcess "/opt/clean/bin/clm" ["-l", "-no-pie", "sil_compiled", "-o", "sil_compiled"] Nothing w | isError p # err = err <<< snd (fromError p) <<< "\r\n" = finish 1 io err w @@ -121,7 +121,7 @@ where ) isFilename :: (String -> Bool) - isFilename = all (\c -> isAlphanum c || isMember c ['./']) o fromString + isFilename = all (\c -> isAlphanum c || isMember c ['./-']) o fromString finish :: !Int !*File !*File !*World -> *World finish ret io err w |