Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
9.2.2023: Due to updates GitLab will be unavailable for some minutes between 9:00 and 11:00.
Open sidebar
i7
peregrine
Commits
769f3e09
Commit
769f3e09
authored
Jul 19, 2014
by
Philipp Meyer
Browse files
Fixed two small print bugs
parent
f90158e5
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/Main.hs
View file @
769f3e09
...
...
@@ -305,7 +305,7 @@ checkSafetyProperty verbosity net refine f traps = do
rt
<-
checkSat
$
checkTrapSat
net
assigned
case
rt
of
Nothing
->
do
putStrLn
"No trap found."
verbosePut
verbosity
1
"No trap found."
return
False
Just
at
->
do
let
trap
=
trapFromAssignment
at
...
...
src/Printer.hs
View file @
769f3e09
...
...
@@ -5,6 +5,6 @@ where
import
Data.Char
validateId
::
String
->
String
validateId
""
=
error
"empty id
"
validateId
""
=
"
"
validateId
(
x
:
xs
)
=
(
if
isAlpha
x
then
x
else
'_'
)
:
map
(
\
c
->
if
isAlphaNum
c
then
c
else
'_'
)
xs
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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