File tree Expand file tree Collapse file tree 4 files changed +8
-1
lines changed Expand file tree Collapse file tree 4 files changed +8
-1
lines changed Original file line number Diff line number Diff line change @@ -32,6 +32,7 @@ module Constrained.Base (
3232 pattern (:<:) ,
3333 pattern (:>:) ,
3434 pattern Unary ,
35+ Ctx ,
3536 toCtx ,
3637 flipCtx ,
3738 fromListCtx ,
@@ -88,6 +89,7 @@ module Constrained.Base (
8889 fromForAllSpec ,
8990 Fun (.. ),
9091 BaseW (.. ),
92+ Deps ,
9193) where
9294
9395import Constrained.AbstractSyntax
Original file line number Diff line number Diff line change @@ -358,6 +358,7 @@ scaleT sc (GenT gen) = GenT $ \mode msgs -> scale sc $ gen mode msgs
358358getMode :: Applicative m => GenT m GenMode
359359getMode = GenT $ \ mode _ -> pure (pure mode)
360360
361+ -- | Get the current stack of `explain` above you
361362getMessages :: Applicative m => GenT m [NonEmpty String ]
362363getMessages = GenT $ \ _ msgs -> pure (pure msgs)
363364
Original file line number Diff line number Diff line change @@ -25,10 +25,13 @@ module Constrained.Generic (
2525 Sum (.. ),
2626 (:::) ,
2727 SOP ,
28+ SOPLike (.. ),
29+ SOPOf ,
30+ ALG ,
31+ Inject (.. ),
2832 ProdOver ,
2933 ConstrOf ,
3034 inject ,
31- algebra ,
3235 SumOver ,
3336) where
3437
Original file line number Diff line number Diff line change @@ -44,6 +44,7 @@ module Constrained.NumOrd (
4444 MaybeBounded (.. ),
4545 NumLike (.. ),
4646 Numeric ,
47+ Number ,
4748 nubOrd ,
4849 IntW (.. ),
4950 OrdW (.. ),
You can’t perform that action at this time.
0 commit comments