From fd2963cae60c87aa3bcf382829cb7c44e6e0c2ae Mon Sep 17 00:00:00 2001
From: Yann Herklotz <ymherklotz@gmail.com>
Date: Tue, 1 Jan 2019 14:48:54 +0100
Subject: Fix linting warnings

---
 src/Test/VeriFuzz/Simulator/Icarus.hs | 4 +---
 src/Test/VeriFuzz/Simulator/Xst.hs    | 2 +-
 src/Test/VeriFuzz/Simulator/Yosys.hs  | 2 +-
 3 files changed, 3 insertions(+), 5 deletions(-)

(limited to 'src/Test/VeriFuzz/Simulator')

diff --git a/src/Test/VeriFuzz/Simulator/Icarus.hs b/src/Test/VeriFuzz/Simulator/Icarus.hs
index 5a4a12d..156d1fc 100644
--- a/src/Test/VeriFuzz/Simulator/Icarus.hs
+++ b/src/Test/VeriFuzz/Simulator/Icarus.hs
@@ -10,8 +10,6 @@ Portability : POSIX
 Icarus verilog module.
 -}
 
-{-# LANGUAGE QuasiQuotes #-}
-
 module Test.VeriFuzz.Simulator.Icarus where
 
 import           Data.ByteString                 (ByteString)
@@ -25,7 +23,7 @@ import           Test.VeriFuzz.Simulator.General
 import           Test.VeriFuzz.Verilog
 import           Text.Shakespeare.Text           (st)
 
-data Icarus = Icarus { icarusPath :: FilePath }
+newtype Icarus = Icarus { icarusPath :: FilePath }
 
 instance Simulator Icarus where
   toText _ = "iverilog"
diff --git a/src/Test/VeriFuzz/Simulator/Xst.hs b/src/Test/VeriFuzz/Simulator/Xst.hs
index 3372ae0..17efb47 100644
--- a/src/Test/VeriFuzz/Simulator/Xst.hs
+++ b/src/Test/VeriFuzz/Simulator/Xst.hs
@@ -24,7 +24,7 @@ import           Test.VeriFuzz.Verilog.AST
 import           Test.VeriFuzz.Verilog.CodeGen
 import           Text.Shakespeare.Text           (st)
 
-data Xst = Xst { xstPath :: FilePath }
+newtype Xst = Xst { xstPath :: FilePath }
 
 instance Simulator Xst where
   toText _ = "xst"
diff --git a/src/Test/VeriFuzz/Simulator/Yosys.hs b/src/Test/VeriFuzz/Simulator/Yosys.hs
index 778918d..bcded2f 100644
--- a/src/Test/VeriFuzz/Simulator/Yosys.hs
+++ b/src/Test/VeriFuzz/Simulator/Yosys.hs
@@ -25,7 +25,7 @@ import           Test.VeriFuzz.Verilog.AST
 import           Test.VeriFuzz.Verilog.CodeGen
 import           Text.Shakespeare.Text           (st)
 
-data Yosys = Yosys { yosysPath :: FilePath }
+newtype Yosys = Yosys { yosysPath :: FilePath }
 
 instance Simulator Yosys where
   toText _ = "yosys"
-- 
cgit