haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Incomplete route changes

Browse Source
This commit is contained in:
Michael Snoyman 2011-10-05 07:19:12 +02:00
parent 820adf2971
commit 619e74dd45
2 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
yesod-routes/Yesod/Routes.hs
View File

@ -10,6 +10,7 @@ import Web.ClientSession (Key)
import Yesod.Core (Route) import Yesod.Core (Route)
import qualified Data.Vector as V import qualified Data.Vector as V
import Data.Maybe (fromMaybe) import Data.Maybe (fromMaybe)
import qualified Data.Map as Map
data Piece = StaticPiece Text | SinglePiece data Piece = StaticPiece Text | SinglePiece
@ -44,6 +45,14 @@ bcToDispatch (ByCount vec rest) sub mkey ts master toMaster =
checkStatics (path:paths) (StaticPiece piece:pieces) isMulti = checkStatics (path:paths) (StaticPiece piece:pieces) isMulti =
path == piece && checkStatics paths pieces isMulti path == piece && checkStatics paths pieces isMulti
data PieceMap sub master res = PieceMap
{ pmHandlers :: Either (PieceMap sub master res) [(Int, RouteHandler sub master res)]
, pmStatic :: Map.Map Text (PieceMap sub master res)
}
toPieceMap :: [RouteHandler sub master res] -> PieceMap sub master res
toPieceMap = undefined
data ByCount sub master res = ByCount data ByCount sub master res = ByCount
{ bcVector :: !(V.Vector [RouteHandler sub master res]) { bcVector :: !(V.Vector [RouteHandler sub master res])
, bcRest :: ![RouteHandler sub master res] , bcRest :: ![RouteHandler sub master res]

1
yesod-routes/yesod-routes.cabal
View File

@ -17,6 +17,7 @@ library
, text >= 0.5 && < 0.12 , text >= 0.5 && < 0.12
, vector >= 0.8 && < 0.10 , vector >= 0.8 && < 0.10
, clientsession >= 0.7 && < 0.8 , clientsession >= 0.7 && < 0.8
, containers >= 0.2 && < 0.5
exposed-modules: Yesod.Routes exposed-modules: Yesod.Routes
ghc-options: -Wall ghc-options: -Wall