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

hledger-web: build with GHC-7.10

Browse Source
This commit is contained in:
Simon Michael 2015-03-29 06:33:53 -07:00
parent 216ebb8333
commit aa47a7dc12
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
hledger-web/Handler/AddForm.hs
View File

@ -1,3 +1,4 @@
{-# LANGUAGE FlexibleContexts #-}
-- | Add form data & handler. (The layout and js are defined in -- | Add form data & handler. (The layout and js are defined in
-- Foundation so that the add form can be in the default layout for -- Foundation so that the add form can be in the default layout for
-- all views.) -- all views.)

4
hledger-web/Handler/Utils.hs
View File

@ -1,3 +1,4 @@
{-# LANGUAGE CPP #-}
-- | Web handler utilities. More of these are in Foundation.hs, where -- | Web handler utilities. More of these are in Foundation.hs, where
-- they can be used in the default template. -- they can be used in the default template.
@ -7,8 +8,9 @@ import Prelude
import Data.Time.Calendar import Data.Time.Calendar
import Data.Time.Clock import Data.Time.Clock
import Data.Time.Format import Data.Time.Format
#if !(MIN_VERSION_time(1,5,0))
import System.Locale (defaultTimeLocale) import System.Locale (defaultTimeLocale)
#endif
numbered :: [a] -> [(Int,a)] numbered :: [a] -> [(Int,a)]
numbered = zip [1..] numbered = zip [1..]