Skip to content
GitLab
Menu
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
curry-packages
currycheck
Commits
51fa20ee
Commit
51fa20ee
authored
Feb 26, 2021
by
Michael Hanus
Browse files
Fix for calling CurryCheck with non-zero CURRYPATH
parent
2d843e66
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/CurryCheck.curry
View file @
51fa20ee
...
...
@@ -66,7 +66,7 @@ ccBanner :: String
ccBanner = unlines [bannerLine,bannerText,bannerLine]
where
bannerText = "CurryCheck: a tool for testing Curry programs (Version " ++
packageVersion ++ " of
03
/0
1
/2021)"
packageVersion ++ " of
26
/0
2
/2021)"
bannerLine = take (length bannerText) (repeat '-')
-- Help text
...
...
@@ -1676,13 +1676,15 @@ checkModules opts mods = do
showGeneratedModule opts "main test" testmodname
putStrIfNormal opts $ withColor opts blue $ "and compiling it...\n"
let runcmd = unwords $
[ installDir </> "bin" </> "curry"
, "--noreadline"
, ":set -time"
, ":set " ++ if optVerb opts > 3 then "v1" else "v0"
, ":set parser -Wnone"
, if null currypath then "" else ":set path " ++ currypath
, ":l "++testmodname,":eval main :q" ]
[ installDir </> "bin" </> "curry"
, "--noreadline" ] ++
(if null currypath
then []
else ["--nocypm", ":set path " ++ currypath]) ++
[ ":set -time"
, ":set " ++ if optVerb opts > 3 then "v1" else "v0"
, ":set parser -Wnone"
, ":l "++testmodname,":eval main :q" ]
putStrLnIfDebug opts $ "Executing command:\n" ++ runcmd
ret <- system runcmd
cleanup opts testmodname finaltestmodules
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment