rnhmjoj/breve
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Directly create response

Browse Source
This commit is contained in:
rnhmjoj 2015-05-10 15:37:33 +02:00
parent b4d697a0dd
commit 19e71ff950
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Application.hs
View File

@ -34,7 +34,7 @@ app url' table = do
middleware (serveStatic static) middleware (serveStatic static)
middleware logStdout middleware logStdout
get "/" $ html (render index) get "/" $ render index
get var $ \name -> do get var $ \name -> do
url <- liftIO (extract table name) url <- liftIO (extract table name)
@ -52,7 +52,7 @@ app url' table = do
name <- liftIO (insert table url) name <- liftIO (insert table url)
logStr (printf "Registered %s -> %s " url name) logStr (printf "Registered %s -> %s " url name)
let link = url' <> name let link = url' <> name
html (render $ done link) render (done link)
post "api" $ do post "api" $ do
url <- fmap unpack <$> param "url" url <- fmap unpack <$> param "url"

5
src/Views.hs
View File

@ -7,9 +7,10 @@ import Data.Text.Lazy (toStrict)
import Text.Blaze.Html.Renderer.Text (renderHtml) import Text.Blaze.Html.Renderer.Text (renderHtml)
import Text.Blaze.Html5 as H import Text.Blaze.Html5 as H
import Text.Blaze.Html5.Attributes as A import Text.Blaze.Html5.Attributes as A
import qualified Web.Spock.Safe as S
render :: Html -> Text render :: Html -> S.ActionT IO ()
render = toStrict . renderHtml render = S.html . toStrict . renderHtml
done :: String -> Html done :: String -> Html
done url = template $ do done url = template $ do