Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

layout -> rLayout

  • Loading branch information...
commit cbbdfe0ef40d599ecefdd221a478aef5e1255e5c 1 parent fbf55da
@MedeaMelana authored
Showing with 3 additions and 3 deletions.
  1. +3 −3 EventExample.hs
View
6 EventExample.hs
@@ -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"
Please sign in to comment.
Something went wrong with that request. Please try again.