From 70f4bed400757e4a876d07e896f265425cd3cf3b Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 18 Nov 2012 13:03:00 -0400 Subject: [PATCH 1/2] language CPP --- Assistant/WebApp/Notifications.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Assistant/WebApp/Notifications.hs b/Assistant/WebApp/Notifications.hs index f5b2d7ccdb..edbbd66576 100644 --- a/Assistant/WebApp/Notifications.hs +++ b/Assistant/WebApp/Notifications.hs @@ -5,7 +5,7 @@ - Licensed under the GNU AGPL version 3 or higher. -} -{-# LANGUAGE TypeFamilies, QuasiQuotes, MultiParamTypeClasses, TemplateHaskell, OverloadedStrings, RankNTypes #-} +{-# LANGUAGE CPP, TypeFamilies, QuasiQuotes, MultiParamTypeClasses, TemplateHaskell, OverloadedStrings, RankNTypes #-} module Assistant.WebApp.Notifications where From b60d5116a9e369375b912a23034183c091a386b6 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 18 Nov 2012 13:04:35 -0400 Subject: [PATCH 2/2] fix warning --- Assistant/WebApp/Notifications.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/Assistant/WebApp/Notifications.hs b/Assistant/WebApp/Notifications.hs index edbbd66576..5eb2283344 100644 --- a/Assistant/WebApp/Notifications.hs +++ b/Assistant/WebApp/Notifications.hs @@ -20,7 +20,9 @@ import Utility.Yesod import Yesod import Data.Text (Text) import qualified Data.Text as T +#ifndef WITH_OLD_YESOD import qualified Data.Aeson.Types as Aeson +#endif {- Add to any widget to make it auto-update using long polling. -