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

fix is argument order

Browse Source
This commit is contained in:
Simon Michael 2009-04-07 23:01:38 +00:00
parent a36e0ab30c
commit 2eb5f40875
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Tests.hs
View File

@ -189,7 +189,7 @@ tfilter _ t = t
-- | Simple way to assert something is some expected value, with no label. -- | Simple way to assert something is some expected value, with no label.
is :: (Eq a, Show a) => a -> a -> Assertion is :: (Eq a, Show a) => a -> a -> Assertion
a `is` e = assertEqual "" a e a `is` e = assertEqual "" e a
-- | Assert a parse result is some expected value, or print a parse error. -- | Assert a parse result is some expected value, or print a parse error.
parseis :: (Show a, Eq a) => (Either ParseError a) -> a -> Assertion parseis :: (Show a, Eq a) => (Either ParseError a) -> a -> Assertion