clean up warnings a bit

hs/Peripherals/Ram.hs

@@ -13,14 +13,13 @@ module Peripherals.Ram(
   write,
   ) where
 
-import Clash.Prelude hiding (read)
+import Clash.Prelude hiding (empty, read)
 import qualified Prelude as P
 import qualified Data.ByteString.Lazy as BL
 import Data.Binary.Get
 import Data.Int (Int32)
 import qualified Clash.Sized.Vector as Vec
-import Types(Addr,
-             Byte, HalfWord, FullWord, DoubleWord, QuadWord)
+import Types(Addr, FullWord, DoubleWord)
 import BusTypes(
     TransactionSize(..),
     BusVal(..),

hs/Peripherals/Uart.hs

@@ -5,20 +5,15 @@ import Types (Byte)
 import Data.Char (ord, chr)
 
 import Peripherals.UartCFFI (
-    initTerminal,
-    restoreTerminal,
     getCharFromTerminal,
     writeCharToTerminal,
     isCharAvailable,
-    setupSigintHandler,
-    wasCtrlCReceived
   )
 
 import BusTypes (
     TransactionSize(..),
     BusVal(..),
   )
-import GHC.Generics (URec(UAddr), Generic (from))
 
 -- based on a 16550 UART which has an address space of 8 bytes
 type UartAddr = Unsigned 3

hs/Peripherals/UartCFFI.hs

@@ -7,13 +7,11 @@ module Peripherals.UartCFFI (
     writeCharToTerminal,
     isCharAvailable,
     setupSigintHandler,
-    wasCtrlCReceived
+    ctrlCReceived
 ) where
 
 import Prelude
 import Foreign.C.Types
-import Foreign.C.String
-import Foreign.Ptr
 import Data.Char (chr, ord)
 
 -- Foreign imports directly corresponding to the C functions