simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-11-08 07:09:28 +03:00
Code Issues 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 qualified Data.Text as T
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.Data hiding (num)
@ -83,7 +83,7 @@ postAddForm = do
let numberedParams s =
reverse $ dropWhile (T.null . snd) $ reverse $ sort
[ (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
, let Right n = en
]