Skip to content
Permalink
bff360d1b2
Switch branches/tags
Go to file
 
 
Cannot retrieve contributors at this time
19 lines (15 sloc) 419 Bytes
module Epicbot.Web.Router
( new
) where
import Epicbot.App (ResponseM)
import Epicbot.Web.Service.Command as CommandService
import Epicbot.Web.Service.Interactive as InteractiveService
import HTTPure as HTTPure
new :: HTTPure.Request -> ResponseM
new req = case req of
{ path: [] } ->
CommandService.handle req
{ path: ["interactive"] } ->
InteractiveService.handle req
_ ->
HTTPure.notFound