Permalink
Browse files

layout -> rLayout

  • Loading branch information...
MedeaMelana committed Jun 19, 2011
1 parent fbf55da commit cbbdfe0ef40d599ecefdd221a478aef5e1255e5c
Showing with 3 additions and 3 deletions.
  1. +3 −3 EventExample.hs
View
@@ -40,10 +40,10 @@ wide, thin, collapsed :: Router r (Layout :- r)
-- Custom routers, tying a URL format to the datatypes
rEvent :: Router r (Event :- r)
-rEvent = event / "event" / "id" / rJust . integer / rFalse . "layout" / layout
+rEvent = event / "event" / "id" / rJust . integer / rFalse . "layout" / rLayout
-layout :: Router r (Layout :- r)
-layout = wide . "wide"
+rLayout :: Router r (Layout :- r)
+rLayout = wide . "wide"
<> thin . "thin"
<> collapsed . "collapsed"

0 comments on commit cbbdfe0

Please sign in to comment.