clean up warnings a bit

hs/Simulation.hs

@@ -22,10 +22,6 @@ import Cpu(
 import Fetch(fetchInstruction, FetchResult (..))
 import Isa.Decode(decode)
 
-import Debug.Trace
-import Types (Insn)
-import Control.Monad.RWS (MonadState(put))
-
 data Args = Args {
     firmware :: FilePath
     } deriving (Show)
@@ -71,12 +67,12 @@ simulation args = do
   initializedPeripherals <- setupPeripherals (firmware args)
   case initializedPeripherals of
     InitializationError e -> return $ Failure e
-    InitializedPeripherals ram -> do
+    InitializedPeripherals ramDevice -> do
 
       let initState =
             Machine {
               cpu = riscvCPUInit,
-              peripherals = Bus.Peripherals ram
+              peripherals = Bus.Peripherals ramDevice
               }
       sim <- simulationLoop 15 initState
       teardownPeripherals