diff options
| author | Yann Herklotz Grave <git@yannherklotzgrave.com> | 2019-02-16 11:35:39 +0000 |
|---|---|---|
| committer | Yann Herklotz Grave <git@yannherklotzgrave.com> | 2019-02-16 11:35:39 +0000 |
| commit | a83b3b40f683400914d0f3ae23bd9e69e6e0fd96 (patch) | |
| tree | 5bd7bcd8a36cce820dae888fdd4eeca080f8356d /test/Unit.hs | |
| parent | f5f2b13429bd81aa1e53431e950439c3542a9100 (diff) | |
| download | verismith-a83b3b40f683400914d0f3ae23bd9e69e6e0fd96.tar.gz verismith-a83b3b40f683400914d0f3ae23bd9e69e6e0fd96.zip | |
Fix warnings for -Wall
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 |