Skip to content
Browse files

Fixed broken type synonym.

  • Loading branch information...
1 parent 2dc399a commit 8da8ea5624930ff1784ca72bcb8010df242274ca @MedeaMelana committed Dec 7, 2010
Showing with 1 addition and 1 deletion.
  1. +1 −1 Web/Zwaluw/Regular.hs
View
2 Web/Zwaluw/Regular.hs
@@ -13,7 +13,7 @@ import Generics.Regular
infixr :&
-type Routers = RouterList (PF r)
+type Routers r = RouterList (PF r) r
mkRouters :: (f ~ PF r, MkRouters f r, Regular r) => Routers r
mkRouters = mkRouters' to (Just . from)

0 comments on commit 8da8ea5

Please sign in to comment.
Something went wrong with that request. Please try again.