Skip to content
This repository was archived by the owner on Oct 4, 2020. It is now read-only.

Commit d303bbe

Browse files
committed
Use Foreign instead of polymorphic a.
1 parent 05fff5a commit d303bbe

File tree

1 file changed

+5
-4
lines changed

1 file changed

+5
-4
lines changed

src/DOM/HTML/History.purs

Lines changed: 5 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,8 @@
11
module DOM.HTML.History where
22

33
import Control.Monad.Eff (Eff)
4-
import DOM.HTML.Types (HISTORY, History, Window)
4+
import DOM.HTML.Types (HISTORY, History)
5+
import Data.Foreign (Foreign)
56
import Prelude (Unit)
67

78
-- DocumentTitle will set value of `document.title`
@@ -12,6 +13,6 @@ newtype URL = URL String -- Unsure how to better type this.
1213
foreign import back :: forall e. History -> Eff (history :: HISTORY | e) Unit
1314
foreign import forward :: forall e. History -> Eff (history :: HISTORY | e) Unit
1415
foreign import go :: forall e. History -> Delta -> Eff (history :: HISTORY | e) Unit
15-
foreign import pushState :: forall a e. History -> a -> DocumentTitle -> URL -> Eff (history :: HISTORY | e) Unit
16-
foreign import replaceState :: forall a e. History -> a -> DocumentTitle -> URL -> Eff (history :: HISTORY | e) Unit
17-
foreign import state :: forall a e. History -> Eff (history :: HISTORY | e) a
16+
foreign import pushState :: forall e. History -> Foreign -> DocumentTitle -> URL -> Eff (history :: HISTORY | e) Unit
17+
foreign import replaceState :: forall e. History -> Foreign -> DocumentTitle -> URL -> Eff (history :: HISTORY | e) Unit
18+
foreign import state :: forall e. History -> Eff (history :: HISTORY | e) Foreign

0 commit comments

Comments
 (0)