maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* finished comment field

Browse source
This commit is contained in:
Vincent Ambo 2012-03-06 00:50:53 +01:00
parent f113778e17
commit 0418692f07
4 changed files with 35 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/Main.hs
View file

@ -46,6 +46,9 @@ blogHandler lang =
msum [ path $ \(year :: Int) -> path $ \(month :: Int) -> path $ --single entry
\(day :: Int) -> path $ \(id_ :: String) -> showEntry year month day id_
, path $ \(year :: Int ) -> path $ \(month :: Int) -> showMonth year month lang
, do
decodeBody tmpPolicy
dir "postcomment" $ path $ \(id_ :: String) -> addComment id_
, do nullDir
showIndex lang
]
@ -84,6 +87,9 @@ showMonth y m lang = do
startkey = JSArray [toJSON y, toJSON m]
endkey = JSArray [toJSON y, toJSON m, JSObject (toJSObject [] )]
addComment :: String -> ServerPart Response
addComment id_ = undefined
-- http://tazj.in/2012/02/10.155234
-- CouchDB functions