11.3.2021, 9:00 - 11:00: Due to updates GitLab may be unavailable for some minutes between 09:00 and 11:00.

Commit 769f3e09 authored by Philipp Meyer's avatar Philipp Meyer

Fixed two small print bugs

parent f90158e5
......@@ -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
......
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment