Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Made parsing non-greedy.

  • Loading branch information...
commit bd3a6d9fa13101429c65aa38bf22e2c763923fdd 1 parent 063a85a
@sjoerdvisscher sjoerdvisscher authored
Showing with 2 additions and 2 deletions.
  1. +1 −1  Web/Zwaluw.hs
  2. +1 −1  Web/Zwaluw/Core.hs
View
2  Web/Zwaluw.hs
@@ -45,7 +45,7 @@ infixr 8 <>
opt :: Router r r -> Router r r
-opt = (<> id)
+opt = (id <>)
manyr :: Router r r -> Router r r
manyr = opt . somer
View
2  Web/Zwaluw/Core.hs
@@ -63,7 +63,7 @@ instance Monoid (Router a b) where
(const mzero)
~(Router pf sf) `mappend` ~(Router pg sg) = Router
(\s -> pf s `mplus` pg s)
- (\s -> sg s `mplus` sf s)
+ (\s -> sf s `mplus` sg s)
instance a ~ b => IsString (Router a b) where
fromString = lit
Please sign in to comment.
Something went wrong with that request. Please try again.