*     Infix operator for . Routes a constant string. Routes a slash. Routes any integer.   For example:  nil :: Router r ([a] :- r) . nil = constr0 [] $ \x -> do [] <- x; Just ()  For example: + left :: Router (a :- r) (Either a b :- r) 6 left = constr1 Left $ \x -> do Left a <- x; return a  For example: + cons :: Router (a :- [a] :- r) ([a] :- r) 9 cons = constr2 (:) $ \x -> do a:as <- x; return (a, as)          ! Zwaluw-0.1 Web.Zwaluw:-Router<>parseparse1unparseunparse1litslashintconstr0constr1constr2serprsbase Data.Monoidmappendxmapmaphoptnilconssatisfychar digitChardigitpushleftrighteitherP