@@ -33,6 +33,8 @@ module Reflex.Dynamic ( Dynamic -- Abstract so we can preserve the law that the
3333 , HList (..)
3434 , FHList (..)
3535 , distributeFHListOverDyn
36+ -- Unsafe
37+ , unsafeDynamic
3638 ) where
3739
3840import Reflex.Class
@@ -89,6 +91,9 @@ instance HBuild' (a ': l) r
8991data Dynamic t a
9092 = Dynamic (Behavior t a) (Event t a)
9193
94+unsafeDynamic :: Behavior t a -> Event t a -> Dynamic t a
95+unsafeDynamic = Dynamic
96+
9297current :: Dynamic t a -> Behavior t a
9398current (Dynamic b _) = b
9499