Re: [web-devel] Multi sites with Yesod or WAI

29 May 2011

      Micheal,

Looking at the pong.hs example for WAI gave me a possible clue.
Replacing pathInfo with serverName, and paths with sitenames

app req = return $
case pathInfo req of
"/builder/withlen" -> builderWithLen
"/builder/nolen" -> builderNoLen
"/enum/withlen" -> enumWithLen
"/enum/nolen" -> enumNoLen
"/file/withlen" -> fileWithLen
"/file/nolen" -> fileNoLen
_ -> index $ pathInfo req

but I like vhost method better.
So with vhost can any boolean eval be used? First true is selected?

Eric

On 05/29/2011 01:49 PM, Michael Snoyman wrote:
...
On Sun, May 29, 2011 at 8:23 PM, Eric Schug  wrote:
...
Is it possible to route applications based on the site name so that a single
haskell process can support multiple sites with some shared
data/applications?
Is this handled at the WAI level or within Yesod?
Eric
Another great question. This can be handled via the vhost middleware,
at the WAI level. As before, here's the uncommented source, I'll try
to get up a blogpost with more details later.
Michael
{-# LANGUAGE OverloadedStrings, QuasiQuotes, TemplateHaskell #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE TypeFamilies #-}
import Yesod
import Network.Wai.Middleware.Vhost
import Network.Wai.Handler.Warp
import Network.Wai
data Site1 = Site1
data Site2 = Site2
data DefaultSite = DefaultSite
mkYesod "Site1" [parseRoutes|/ Root1 GET|]
getRoot1 = return $ RepPlain "Root1"
mkYesod "Site2" [parseRoutes|/ Root2 GET|]
getRoot2 = return $ RepPlain "Root2"
mkYesod "DefaultSite" [parseRoutes|/ RootDef GET|]
getRootDef = return $ RepPlain "RootDef"
instance Yesod Site1 where approot _ = ""
instance Yesod Site2 where approot _ = ""
instance Yesod DefaultSite where approot _ = ""
main = do
     app1<- toWaiApp Site1
     app2<- toWaiApp Site2
     appDef<- toWaiApp DefaultSite
     run 3000 $ vhost
         [ ((==) "host1" . serverName, app1)
         , ((==) "host2" . serverName, app2)
         ] appDef