Added support for `(PathPiece a) => PathPiece (Maybe a)`.

Title says it all. 

Works with routes by using the hyphen in the routes : `/#Maybe-Int HandlR GET`.
Handlers use `Maybe` like any other function : `getHandlR :: Maybe Int -> Handler Html`