diff options
Diffstat (limited to 'test/Unit.hs')
-rw-r--r-- | test/Unit.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/test/Unit.hs b/test/Unit.hs index 5c2db55..404c899 100644 --- a/test/Unit.hs +++ b/test/Unit.hs @@ -4,9 +4,6 @@ module Unit where import Control.Lens -import qualified Data.Graph.Inductive as G -import Data.Text (Text) -import qualified Data.Text as T import Test.Tasty import Test.Tasty.HUnit import VeriFuzz @@ -83,5 +80,5 @@ transformExpectedResult = BinOp trans :: Expr -> Expr trans e = case e of - Id id -> if id == Identifier "id2" then Id $ Identifier "Replaced" else Id id - _ -> e + Id i -> if i == Identifier "id2" then Id $ Identifier "Replaced" else Id i + _ -> e |