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

Removed Handler type synonym

Browse Source
This commit is contained in:
Michael Snoyman 2010-08-25 15:34:33 +03:00
parent b0c2bf0a3b
commit fc0fed4c14
2 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Yesod/Handler.hs
View File

@ -24,7 +24,6 @@ module Yesod.Handler
( -- * Type families ( -- * Type families
Route Route
-- * Handler monad -- * Handler monad
, Handler
, GHandler , GHandler
-- ** Read information from handler -- ** Read information from handler
, getYesod , getYesod
@ -124,7 +123,7 @@ toMasterHandler :: (Route sub -> Route master)
-> (master -> sub) -> (master -> sub)
-> Route sub -> Route sub
-> GHandler sub master a -> GHandler sub master a
-> Handler master a -> GHandler master master a
toMasterHandler tm ts route (GHandler h) = toMasterHandler tm ts route (GHandler h) =
GHandler $ withReaderT (handlerSubData tm ts route) h GHandler $ withReaderT (handlerSubData tm ts route) h
@ -145,11 +144,6 @@ newtype GHandler sub master a = GHandler { unGHandler ::
type Endo a = a -> a type Endo a = a -> a
-- | A 'GHandler' limited to the case where the master and sub sites are the
-- same. This is the usual case for application writing; only code written
-- specifically as a subsite need been concerned with the more general variety.
type Handler yesod = GHandler yesod yesod
-- | An extension of the basic WAI 'W.Application' datatype to provide extra -- | An extension of the basic WAI 'W.Application' datatype to provide extra
-- features needed by Yesod. Users should never need to use this directly, as -- features needed by Yesod. Users should never need to use this directly, as
-- the 'GHandler' monad and template haskell code should hide it away. -- the 'GHandler' monad and template haskell code should hide it away.

2
Yesod/Yesod.hs
View File

@ -72,7 +72,7 @@ import Test.HUnit hiding (Test)
-- | This class is automatically instantiated when you use the template haskell -- | This class is automatically instantiated when you use the template haskell
-- mkYesod function. You should never need to deal with it directly. -- mkYesod function. You should never need to deal with it directly.
class Eq (Route y) => YesodSite y where class Eq (Route y) => YesodSite y where
getSite :: Site (Route y) (Method -> Maybe (Handler y ChooseRep)) getSite :: Site (Route y) (Method -> Maybe (GHandler y y ChooseRep))
type Method = String type Method = String
-- | Same as 'YesodSite', but for subsites. Once again, users should not need -- | Same as 'YesodSite', but for subsites. Once again, users should not need