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

Fix build of hledger-web with megaparsec-6.0

Browse Source
This commit is contained in:
Hans-Peter Deifel 2017-08-08 18:11:50 +02:00 committed by Simon Michael
parent 6c8a445271
commit b5e29b600f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -17,7 +17,7 @@ import qualified Data.List as L (head) -- qualified keeps dev & prod builds warn
import Data.Text (append, pack, unpack) import Data.Text (append, pack, unpack)
import qualified Data.Text as T import qualified Data.Text as T
import Data.Time.Calendar import Data.Time.Calendar
import Text.Megaparsec (digitChar, eof, some, string, runParser, ParseError, Dec) import Text.Megaparsec.Compat (digitChar, eof, some, string, runParser, ParseError, MPErr)
import Hledger.Utils import Hledger.Utils
import Hledger.Data hiding (num) import Hledger.Data hiding (num)
@ -83,7 +83,7 @@ postAddForm = do
let numberedParams s = let numberedParams s =
reverse $ dropWhile (T.null . snd) $ reverse $ sort reverse $ dropWhile (T.null . snd) $ reverse $ sort
[ (n,v) | (k,v) <- params [ (n,v) | (k,v) <- params
, let en = parsewith (paramnamep s) k :: Either (ParseError Char Dec) Int , let en = parsewith (paramnamep s) k :: Either (ParseError Char MPErr) Int
, isRight en , isRight en
, let Right n = en , let Right n = en
] ]