Skip to content
Snippets Groups Projects
Commit a8da634a authored by Matthew Pickering's avatar Matthew Pickering
Browse files

Adapt what4 patch to reflect new quantified superclass on MonadTrans

Fixes GHC #22663
parent 550f65e9
No related branches found
No related tags found
No related merge requests found
...@@ -89,7 +89,6 @@ case $version in ...@@ -89,7 +89,6 @@ case $version in
9.7.*) 9.7.*)
# package ticket # package ticket
broken what4 22663
;; ;;
*) *)
......
...@@ -123,6 +123,19 @@ index edec041..c9af5ef 100644 ...@@ -123,6 +123,19 @@ index edec041..c9af5ef 100644
where where
bvSelect' :: forall i. (i + w <= n * w) bvSelect' :: forall i. (i + w <= n * w)
=> NatRepr (n * w) => NatRepr (n * w)
diff --git a/src/What4/Partial.hs b/src/What4/Partial.hs
index f221030..9445ad2 100644
--- a/src/What4/Partial.hs
+++ b/src/What4/Partial.hs
@@ -266,7 +266,7 @@ instance (IsExpr (SymExpr sym), Monad m) => Monad (PartialT sym m) where
instance (IsExpr (SymExpr sym), MonadFail m) => MonadFail (PartialT sym m) where
fail msg = PartialT $ \_ _ -> fail msg
-instance MonadTrans (PartialT sym) where
+instance (IsExpr (SymExpr sym)) => MonadTrans (PartialT sym) where
lift m = PartialT $ \_ p -> PE p <$> m
instance (IsExpr (SymExpr sym), MonadIO m) => MonadIO (PartialT sym m) where
diff --git a/src/What4/Protocol/SMTLib2.hs b/src/What4/Protocol/SMTLib2.hs diff --git a/src/What4/Protocol/SMTLib2.hs b/src/What4/Protocol/SMTLib2.hs
index 831be33..27506b4 100644 index 831be33..27506b4 100644
--- a/src/What4/Protocol/SMTLib2.hs --- a/src/What4/Protocol/SMTLib2.hs
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment