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

Removed Yesod.WebRoutes

Browse Source
This commit is contained in:
Michael Snoyman 2010-10-20 22:45:35 +02:00
parent c35c935418
commit 07a5350e5b
5 changed files with 3 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Yesod/Dispatch.hs
View File

@ -39,7 +39,6 @@ import Web.Routes.Quasi
import Web.Routes.Quasi.Parse import Web.Routes.Quasi.Parse
import Web.Routes.Quasi.TH import Web.Routes.Quasi.TH
import Language.Haskell.TH.Syntax import Language.Haskell.TH.Syntax
import Yesod.WebRoutes
import qualified Network.Wai as W import qualified Network.Wai as W
import Network.Wai.Middleware.CleanPath (cleanPathFunc) import Network.Wai.Middleware.CleanPath (cleanPathFunc)
@ -68,6 +67,7 @@ import qualified Data.Serialize as Ser
import Network.Wai.Parse hiding (FileInfo) import Network.Wai.Parse hiding (FileInfo)
import qualified Network.Wai.Parse as NWP import qualified Network.Wai.Parse as NWP
import Data.String (fromString) import Data.String (fromString)
import Web.Routes
#if TEST #if TEST
import Test.Framework (testGroup, Test) import Test.Framework (testGroup, Test)

2
Yesod/Helpers/Static.hs
View File

@ -45,13 +45,13 @@ import Data.Maybe (fromMaybe)
import Yesod hiding (lift) import Yesod hiding (lift)
import Data.List (intercalate) import Data.List (intercalate)
import Language.Haskell.TH.Syntax import Language.Haskell.TH.Syntax
import Web.Routes
import qualified Data.ByteString.Lazy as L import qualified Data.ByteString.Lazy as L
import Data.Digest.Pure.MD5 import Data.Digest.Pure.MD5
import qualified Codec.Binary.Base64Url import qualified Codec.Binary.Base64Url
import qualified Data.ByteString as S import qualified Data.ByteString as S
import qualified Data.Serialize import qualified Data.Serialize
import Yesod.WebRoutes
#if TEST #if TEST
import Test.Framework (testGroup, Test) import Test.Framework (testGroup, Test)

8
Yesod/WebRoutes.hs
View File

@ -1,8 +0,0 @@
-- | This module should be removed when web-routes incorporates necessary support.
module Yesod.WebRoutes
( encodePathInfo
, Site (..)
) where
import Web.Routes.Base (encodePathInfo)
import Web.Routes.Site (Site (..))

2
Yesod/Yesod.hs
View File

@ -55,13 +55,13 @@ import Control.Failure (Failure)
import qualified Data.ByteString as S import qualified Data.ByteString as S
import qualified Network.Wai.Middleware.CleanPath import qualified Network.Wai.Middleware.CleanPath
import qualified Data.ByteString.Lazy as L import qualified Data.ByteString.Lazy as L
import Yesod.WebRoutes
import Data.Monoid import Data.Monoid
import Control.Monad.Trans.Writer import Control.Monad.Trans.Writer
import Control.Monad.Trans.State hiding (get) import Control.Monad.Trans.State hiding (get)
import Text.Hamlet import Text.Hamlet
import Text.Cassius import Text.Cassius
import Text.Julius import Text.Julius
import Web.Routes
#if TEST #if TEST
import Test.Framework (testGroup, Test) import Test.Framework (testGroup, Test)

1
yesod.cabal
View File

@ -65,7 +65,6 @@ library
Yesod.Helpers.Crud Yesod.Helpers.Crud
Yesod.Helpers.Sitemap Yesod.Helpers.Sitemap
Yesod.Helpers.Static Yesod.Helpers.Static
Yesod.WebRoutes
other-modules: Yesod.Form.Class other-modules: Yesod.Form.Class
Yesod.Internal Yesod.Internal
Yesod.Form.Fields Yesod.Form.Fields