[web-devel] Multi sites with Yesod or WAI

[Eric Schug]

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<schugschug at gmail.com>  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
>
>