slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

web: make ViewData showable for debugging

Browse Source
This commit is contained in:
Simon Michael 2015-06-25 07:33:03 -07:00
parent c2da13eb39
commit 8e370692e6
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
hledger-web/Foundation.hs
View File

@ -1,4 +1,4 @@
{-# LANGUAGE CPP, MultiParamTypeClasses, OverloadedStrings, RecordWildCards, QuasiQuotes, TemplateHaskell, TypeFamilies #-} {-# LANGUAGE CPP, MultiParamTypeClasses, OverloadedStrings, RecordWildCards, QuasiQuotes, TemplateHaskell, TypeFamilies, TypeSynonymInstances, FlexibleInstances #-}
{- {-
Define the web application's foundation, in the usual Yesod style. Define the web application's foundation, in the usual Yesod style.
@ -41,8 +41,9 @@ import Data.Maybe
import Data.Text as Text (Text,pack,unpack) import Data.Text as Text (Text,pack,unpack)
import Data.Time.Calendar import Data.Time.Calendar
#if BLAZE_HTML_0_4 #if BLAZE_HTML_0_4
import Text.Blaze (preEscapedString) import Text.Blaze (preEscapedString, Markup)
#else #else
import Text.Blaze (Markup)
import Text.Blaze.Internal (preEscapedString) import Text.Blaze.Internal (preEscapedString)
#endif #endif
import Text.JSON import Text.JSON
@ -204,7 +205,9 @@ data ViewData = VD {
,aopts :: [QueryOpt] -- ^ query options parsed from the accounts sidebar query expr ,aopts :: [QueryOpt] -- ^ query options parsed from the accounts sidebar query expr
,showpostings :: Bool -- ^ current p parameter, 1 or 0 shows/hides all postings where applicable ,showpostings :: Bool -- ^ current p parameter, 1 or 0 shows/hides all postings where applicable
,showsidebar :: Bool -- ^ current showsidebar cookie value ,showsidebar :: Bool -- ^ current showsidebar cookie value
} } deriving (Show)
instance Show Text.Blaze.Markup where show _ = "<blaze markup>"
-- | Make a default ViewData, using day 0 as today's date. -- | Make a default ViewData, using day 0 as today's date.
nullviewdata :: ViewData nullviewdata :: ViewData