Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
curry-packages
spicey
Commits
38f5c32d
Commit
38f5c32d
authored
Jan 02, 2019
by
Michael Hanus
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Imports updated
parent
1bfb2188
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
12 additions
and
11 deletions
+12
-11
resource_files/Processes.curry
resource_files/Processes.curry
+6
-6
resource_files/package.json
resource_files/package.json
+6
-5
No files found.
resource_files/Processes.curry
View file @
38f5c32d
...
...
@@ -8,16 +8,16 @@ module System.Processes
, nextControllerRefInProcessOrForUrl
) where
import Config.UserProcesses
import Maybe
import ReadShowTerm
import AllSolutions
import
Control.
AllSolutions
( getOneValue )
import Global
import HTML.Base
import Maybe
import ReadShowTerm
import System.Routes
import Config.RoutesData
import Config.UserProcesses
import System.Routes
import System.Session
--------------------------------------------------------------------------
...
...
@@ -36,7 +36,7 @@ getControllerForState sid (ProcSpec _ ctrlof _) = ctrlof sid
--- Is a state a final state, i.e., without successors, in a process system?
isFinalState :: a -> Processes a -> IO Bool
isFinalState sid (ProcSpec _ _ trans) = do
succs <- getOne
Solution (\x -> let p free in x =:=
trans sid
p
)
succs <- getOne
Value (
trans sid
_
)
return (maybe True (const False) succs)
--------------------------------------------------------------------------
...
...
resource_files/package.json
View file @
38f5c32d
...
...
@@ -5,11 +5,12 @@
"synopsis"
:
"Web application 'XXXPKGNAMEXXX' generated by Spicey"
,
"category"
:
[
"Web"
],
"dependencies"
:
{
"base"
:
">= 1.0.0, < 2.0.0"
,
"cdbi"
:
">= 2.0.0"
,
"html"
:
">= 2.1.0"
,
"random"
:
">= 0.0.1"
,
"wui"
:
">= 2.0.0"
"base"
:
">= 1.0.0, < 2.0.0"
,
"cdbi"
:
">= 2.0.0"
,
"html"
:
">= 2.1.0"
,
"random"
:
">= 0.0.1"
,
"searchtree"
:
">= 0.0.1"
,
"wui"
:
">= 2.0.0"
},
"compilerCompatibility"
:
{
"pakcs"
:
">= 2.0.0"
,
...
...
Write
Preview
Markdown
is supported
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