From 7f0d3161b737e778977fbee52541660ee38fcbb3 Mon Sep 17 00:00:00 2001 From: pho Date: Tue, 29 Jan 2008 18:14:15 +0900 Subject: [PATCH] bugfix darcs-hash:20080129091415-62b54-f9e5cd1cdff96fe6e46e8db91000c2acbc9733d9.gz --- Rakka/Resource/TrackBack.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/Rakka/Resource/TrackBack.hs b/Rakka/Resource/TrackBack.hs index a9b364a..145e307 100644 --- a/Rakka/Resource/TrackBack.hs +++ b/Rakka/Resource/TrackBack.hs @@ -13,6 +13,7 @@ import Data.Time import Network.Browser import Network.HTTP import Network.HTTP.Lucu +import Network.HTTP.Lucu.Response import Network.HTTP.Lucu.Utils import Network.URI import Rakka.Environment @@ -74,7 +75,10 @@ handlePost env name | otherwise = do tbListM <- return . fromMaybe [] =<< getAttachment (envStorage env) (pageName page) "trackbacks" Nothing st <- putAttachment (envStorage env) Nothing Nothing (pageName page) "trackbacks" (tbParam : tbListM) - setStatus st + if isSuccessful st then + outputResponse NoError + else + setStatus st validateTrackBack :: [(String, String)] -> Resource (Maybe TrackBack) -- 2.40.0