Skip to content

Commit

Permalink
Update to latest Jukebox.
Browse files Browse the repository at this point in the history
  • Loading branch information
nick8325 committed Sep 2, 2017
1 parent f8366cd commit d6b9f42
Showing 1 changed file with 5 additions and 6 deletions.
11 changes: 5 additions & 6 deletions executable/Main.hs
Original file line number Diff line number Diff line change
Expand Up @@ -234,7 +234,7 @@ makeContext prob = run prob $ \prob -> do
let
ty =
case types' prob of
[] -> Type (name "$i") Infinite Infinite
[] -> indType
[ty] -> ty

var <- newSymbol "X" ty
Expand Down Expand Up @@ -341,11 +341,10 @@ runTwee globals (TSTPFlags tstp) main config precedence later obligs = {-# SCC r
(axioms0, goals0) <-
case identifyProblem ctx prob of
Left inp -> do
hPutStr stderr $
unlines $
["The problem contains the following clause, which is not a unit equality:"] ++
[" " ++ line | line <- lines $ show (pPrintClauses [inp])] ++
["Twee only handles unit equality problems."]
mapM_ (hPutStrLn stderr) [
"The problem contains the following clause, which is not a unit equality:",
indent (show (pPrintClauses [inp])),
"Twee only handles unit equality problems."]
exitWith (ExitFailure 1)
Right x -> return x

Expand Down

0 comments on commit d6b9f42

Please sign in to comment.