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

More documentation work

Browse Source
This commit is contained in:
Michael Snoyman 2010-05-02 08:12:49 +03:00
parent 57e4bef957
commit 180a5ec9ce
3 changed files with 35 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Yesod/Hamlet.hs
View File

@ -25,7 +25,7 @@ import Yesod.Content
import Yesod.Handler
import Yesod.Definitions
import Data.Convertible.Text
import Data.Object
import Data.Object -- FIXME should we kill this?
import Control.Arrow ((***))
-- | Content for a web page. By providing this datatype, we can easily create

26
Yesod/Json.hs
View File

@ -1,8 +1,9 @@
-- FIXME document
-- | Efficient generation of JSON documents, with HTML-entity encoding handled via types.
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE CPP #-}
module Yesod.Json
( Json
( -- * Monad
Json
, jsonToContent
-- * Generate Json output
, jsonScalar
@ -33,9 +34,19 @@ import Test.HUnit hiding (Test)
import Data.Text.Lazy (unpack)
#endif
-- | A monad for generating Json output. In truth, it is just a newtype wrapper
-- around 'Hamlet'; we thereby get the benefits of Hamlet (interleaving IO and
-- enumerator output) without accidently mixing non-JSON content.
--
-- This is an opaque type to avoid any possible insertion of non-JSON content.
-- Due to the limited nature of the JSON format, you can create any valid JSON
-- document you wish using only 'jsonScalar', 'jsonList' and 'jsonMap'.
newtype Json url a = Json { unJson :: Hamlet url IO a }
deriving (Functor, Applicative, Monad)
-- | Extract the final result from the given 'Json' value.
--
-- See also: applyLayoutJson in "Yesod.Yesod".
jsonToContent :: Json (Routes master) () -> GHandler sub master Content
jsonToContent = hamletToContent . unJson
@ -43,15 +54,24 @@ htmlContentToText :: HtmlContent -> Text
htmlContentToText (Encoded t) = t
htmlContentToText (Unencoded t) = encodeHtml t
-- | Outputs a single scalar. This function essentially:
--
-- * Performs HTML entity escaping as necesary.
--
-- * Performs JSON encoding.
--
-- * Wraps the resulting string in quotes.
jsonScalar :: HtmlContent -> Json url ()
jsonScalar s = Json $ do
outputString "\""
output $ encodeJson $ htmlContentToText s
outputString "\""
-- | Outputs a JSON list, eg [\"foo\",\"bar\",\"baz\"].
jsonList :: [Json url ()] -> Json url ()
jsonList = jsonList' . fromList
-- | Same as 'jsonList', but uses an 'Enumerator' for input.
jsonList' :: Enumerator (Json url ()) (Json url) -> Json url () -- FIXME simplify type
jsonList' (Enumerator enum) = do
Json $ outputString "["
@ -63,9 +83,11 @@ jsonList' (Enumerator enum) = do
() <- j
return $ Right True
-- | Outputs a JSON map, eg {\"foo\":\"bar\",\"baz\":\"bin\"}.
jsonMap :: [(String, Json url ())] -> Json url ()
jsonMap = jsonMap' . fromList
-- | Same as 'jsonMap', but uses an 'Enumerator' for input.
jsonMap' :: Enumerator (String, Json url ()) (Json url) -> Json url () -- FIXME simplify type
jsonMap' (Enumerator enum) = do
Json $ outputString "{"

12
Yesod/Yesod.hs
View File

@ -27,7 +27,7 @@ import Yesod.Internal
import Web.Routes.Quasi (QuasiSite (..))
-- | This class is automatically instantiated when you use the template haskell
-- mkYesod function.
-- mkYesod function. You should never need to deal with it directly.
class YesodSite y where
getSite :: QuasiSite YesodApp y y
@ -36,6 +36,14 @@ class YesodSite y where
class YesodSite a => Yesod a where
-- | An absolute URL to the root of the application. Do not include
-- trailing slash.
--
-- If you want to be lazy, you can supply an empty string under the
-- following conditions:
--
-- * Your application is served from the root of the domain.
--
-- * You do not use any features that require absolute URLs, such as Atom
-- feeds and XML sitemaps.
approot :: a -> Approot
-- | The encryption key to be used for encrypting client sessions.
@ -54,7 +62,7 @@ class YesodSite a => Yesod a where
-> Handler y ChooseRep
errorHandler _ = defaultErrorHandler
-- | Applies some form of layout to <title> and <body> contents of a page.
-- | Applies some form of layout to the contents of a page.
defaultLayout :: a
-> PageContent (Routes a)
-> Request