createSessionRoute :: Maybe T.Text
                      -- ^ An optional name for the session
                   -> Route
                      -- ^ The lightning-viz session endpoint
createSessionRoute n = Route ["sessions"]
                             ["name" =. fromMaybe "" n]
                             "POST"
createSessionRoute :: Maybe T.Text
                      -- ^ An optional name for the session
                   -> Route
createSessionRoute n = Route ["sessions"]
                             ["name" =. fromMaybe "" n]
                             "POST"
createSessionRoute n = Route ["sessions"]
                             ["name" =. fromMaybe "" n]
                             "POST"