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
currypp
Commits
6c0d285c
Commit
6c0d285c
authored
Oct 31, 2018
by
Michael Hanus
Browse files
Loading of proof files improved
parent
b5eef8a1
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/DefaultRules/TransDefRules.curry
View file @
6c0d285c
...
...
@@ -18,7 +18,9 @@ import Distribution
import FilePath (takeDirectory)
import List(isPrefixOf,isSuffixOf,partition)
import System
import TheoremUsage
import TheoremUsage ( determinismTheoremFor, existsProofFor
, getModuleProofFiles, isProofFileNameFor )
--------------------------------------------------------------------
...
...
@@ -26,7 +28,7 @@ banner :: String
banner = unlines [bannerLine,bannerText,bannerLine]
where
bannerText =
"Transformation Tool for Curry with Default Rules (Version of
08/06
/1
6
)"
"Transformation Tool for Curry with Default Rules (Version of
31/10
/1
8
)"
bannerLine = take (length bannerText) (repeat '=')
------------------------------------------------------------------------
...
...
@@ -56,7 +58,8 @@ transDefaultRules verb moreopts _ prog = do
maybe (return Nothing)
(\ (detfuncnames,newprog) -> do
-- check whether we have files with determinism proofs:
prfiles <- getProofFiles (takeDirectory (modNameToPath (progName prog)))
let mname = progName prog
prfiles <- getModuleProofFiles (takeDirectory (modNameToPath mname)) mname
detfuncnamesWOproofs <- filterProofObligation verb prfiles detfuncnames
when (verb>0) $ printProofObligation detfuncnamesWOproofs
return (Just newprog))
...
...
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