Commit 0a1af671 authored by Hans-Peter Deifel's avatar Hans-Peter Deifel 🐢

howto: Adapt to new RefinementInterface

parent 2cd1a912
......@@ -102,7 +102,7 @@ type family Weight (f :: * -> *) :: *
type family F1 (f :: * -> *) :: *
type family F3 (f :: * -> *) :: *
class (Ord (F1 f), Ord (F3 f)) => RefinementInterface (f :: * -> *) where
class (Ord (F1 f), Ord (F3 f)) => RefinementInterface f where
init :: F1 f -> [Label f] -> Weight f
update :: [Label f] -> Weight f -> (Weight f, F3 f, Weight f)
#+END_SRC
......
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