1
+ {-# LANGUAGE CPP #-}
1
2
{-# LANGUAGE ConstraintKinds #-}
2
3
{-# LANGUAGE DeriveDataTypeable #-}
4
+ {-# LANGUAGE DerivingStrategies #-}
3
5
{-# LANGUAGE FlexibleContexts #-}
4
6
5
7
{-|
@@ -11,7 +13,10 @@ be housed in Simulator.hs, but FFI code crashes Template Haskell.
11
13
-}
12
14
module Clash.CoSim.Types where
13
15
14
- import Data.Data (Data , Typeable )
16
+ import Data.Data (Data )
17
+ #if __GLASGOW_HASKELL__ <= 910
18
+ import Data.Data (Typeable )
19
+ #endif
15
20
16
21
import Clash.Prelude (BitPack , BitSize , KnownNat )
17
22
import Clash.XException (NFDataX )
@@ -28,7 +33,10 @@ data CoSimSettings = CoSimSettings
28
33
-- ^ Include files while running simulator
29
34
, enableStdout :: Bool
30
35
-- ^ Print verbose output to stdout
31
- } deriving (Show , Typeable , Data )
36
+ } deriving (Show , Data )
37
+ #if __GLASGOW_HASKELL__ <= 910
38
+ deriving Typeable
39
+ #endif
32
40
33
41
-- | Default simulator settings use Icarus, have a period of 20 and all other
34
42
-- options disabled.
@@ -53,4 +61,7 @@ data CoSimulator = Icarus
53
61
-- ^ https://github.com/steveicarus/iverilog
54
62
| ModelSim
55
63
-- ^ https://www.mentor.com/products/fv/modelsim/
56
- deriving (Show , Eq , Typeable , Data )
64
+ deriving (Show , Eq , Data )
65
+ #if __GLASGOW_HASKELL__ <= 910
66
+ deriving Typeable
67
+ #endif
0 commit comments