We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
2 parents 62742c3 + 5926681 commit d4b15b9Copy full SHA for d4b15b9
src/Routing/Match.purs
@@ -23,10 +23,7 @@ import Routing.Types (Route, RoutePart(..))
23
24
newtype Match a = Match (Route -> V (Free MatchError) (Tuple Route a))
25
26
--- Manual instance due to the `Route` synonym in the above
27
-instance newtypeMatch :: Newtype (Match a) (List RoutePart -> V (Free MatchError) (Tuple (List RoutePart) a)) where
28
- wrap = Match
29
- unwrap (Match m) = m
+derive instance newtypeMatch :: Newtype (Match a) _
30
31
instance matchFunctor :: Functor Match where
32
map fn (Match r2e) = Match $ \r ->
0 commit comments