From bbd8888b13dd08fd7aa44eda000762af574c1604 Mon Sep 17 00:00:00 2001
From: Sam Balco <goodlyrottenapple@gmail.com>
Date: Fri, 22 Mar 2024 17:01:44 +0000
Subject: [PATCH] remove unused imports and fix getmodel response

---
 library/Booster/JsonRpc.hs | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/library/Booster/JsonRpc.hs b/library/Booster/JsonRpc.hs
index f242549c..a0ff2937 100644
--- a/library/Booster/JsonRpc.hs
+++ b/library/Booster/JsonRpc.hs
@@ -24,7 +24,6 @@ import Control.Monad.Logger.CallStack (MonadLoggerIO)
 import Control.Monad.Logger.CallStack qualified as Log
 import Control.Monad.Trans.Except (catchE, except, runExcept, runExceptT, throwE, withExceptT)
 import Crypto.Hash (SHA256 (..), hashWith)
-import Data.Aeson (ToJSON (toJSON))
 import Data.Bifunctor (second)
 import Data.Coerce (coerce)
 import Data.Foldable
@@ -60,7 +59,7 @@ import Booster.Pattern.Rewrite (
     performRewrite,
  )
 import Booster.Pattern.Util (sortOfPattern, substituteInPredicate, substituteInTerm)
-import Booster.Prettyprinter (renderOneLineText, renderText)
+import Booster.Prettyprinter (renderText)
 import Booster.SMT.Base qualified as SMT
 import Booster.SMT.Interface qualified as SMT
 import Booster.Syntax.Json (KoreJson (..), addHeader, prettyPattern, sortOfJson)
@@ -450,13 +449,13 @@ respond stateVar =
                                     { satisfiable = RpcTypes.Unsat
                                     , substitution = Nothing
                                     }
-                            Left SMT.Unknown ->
+                            Left SMT.ReasonUnknown{} ->
                                 RpcTypes.GetModelResult
                                     { satisfiable = RpcTypes.Unknown
                                     , substitution = Nothing
                                     }
                             Left other ->
-                                error $ "Unexpected result " <> show other <> "from getModelFor"
+                                error $ "Unexpected result " <> show other <> " from getModelFor"
                             Right subst ->
                                 let sort = fromMaybe (error "Unknown sort in input") $ sortOfJson req.state.term
                                     substitution