mirror of
https://github.com/GaloisInc/macaw.git
synced 2024-11-22 23:32:15 +03:00
Make code compile without warnings in ghc-8.6 and ghc-8.8.
This commit is contained in:
parent
02c2fcd96a
commit
f65c80d7b1
@ -28,7 +28,7 @@ import Data.List
|
||||
import Data.Sequence (Seq)
|
||||
import qualified Data.Sequence as Seq
|
||||
import qualified Data.Vector as V
|
||||
import GHC.TypeNats (type (<=), KnownNat)
|
||||
import GHC.TypeNats (KnownNat)
|
||||
import Numeric
|
||||
|
||||
import Data.Macaw.CFG.AssignRhs (ArchAddrWidth, MemRepr(..))
|
||||
|
@ -42,7 +42,6 @@ import Data.Bits
|
||||
import qualified Data.Kind as Kind
|
||||
import Data.Macaw.CFG
|
||||
import Data.Macaw.CFG.Rewriter
|
||||
import Data.Macaw.Memory (Endianness(..))
|
||||
import Data.Macaw.Types
|
||||
import qualified Data.Map as Map
|
||||
import Data.Parameterized.Classes
|
||||
|
@ -64,7 +64,9 @@ module Data.Macaw.X86.Generator
|
||||
import Control.Lens
|
||||
import Control.Monad.Cont
|
||||
import Control.Monad.Except
|
||||
#if __GLASGOW_HASKELL__ < 808
|
||||
import Control.Monad.Fail
|
||||
#endif
|
||||
import Control.Monad.Reader
|
||||
import Control.Monad.ST
|
||||
import Control.Monad.State.Strict
|
||||
|
@ -52,7 +52,6 @@ import qualified Control.Monad.Fail as MF
|
||||
import Data.Parameterized.NatRepr
|
||||
import qualified Data.Text as T
|
||||
import qualified Flexdis86 as F
|
||||
import GHC.TypeLits (KnownNat)
|
||||
|
||||
import Data.Macaw.CFG
|
||||
import Data.Macaw.CFG.Block ( TermStmt(TranslateError) )
|
||||
|
@ -36,7 +36,6 @@ module Data.Macaw.X86.InstructionDef
|
||||
import qualified Flexdis86 as F
|
||||
import Data.Macaw.Types
|
||||
import Data.Parameterized.NatRepr
|
||||
import GHC.TypeLits (KnownNat)
|
||||
|
||||
import Data.Macaw.X86.Conditions
|
||||
import Data.Macaw.X86.Generator
|
||||
|
@ -35,7 +35,6 @@ import Data.Word
|
||||
import qualified Flexdis86 as F
|
||||
|
||||
import Data.Macaw.CFG
|
||||
import Data.Macaw.Memory (Endianness (LittleEndian))
|
||||
import Data.Macaw.Types
|
||||
|
||||
|
||||
|
@ -48,7 +48,6 @@ import Text.PrettyPrint.ANSI.Leijen hiding ( (<$>), (<>), empty )
|
||||
import What4.Concrete
|
||||
import What4.Interface hiding (IsExpr)
|
||||
import What4.InterpretedFloatingPoint
|
||||
import What4.Symbol (userSymbol)
|
||||
|
||||
import Lang.Crucible.Backend (IsSymInterface, assert)
|
||||
import Lang.Crucible.CFG.Expr
|
||||
|
Loading…
Reference in New Issue
Block a user