add bounds

unused

Author: vmchale

clash-lib/clash-lib.cabal

@@ -154,11 +154,10 @@ Library
                       hint                    >= 0.7      && < 0.10,
                       interpolate             >= 0.2.0    && < 1.0,
                       lens                    >= 4.10     && < 5.1.0,
-                      -- TODO bounds
-                      lifted-async,
-                      lifted-base,
-                      lockfree-queue,
-                      monad-control,
+                      lifted-async            >=0.10      && <0.11,
+                      lifted-base             >=0.2       && <0.3,
+                      lockfree-queue          >=0.2       && <0.3,
+                      monad-control           >=1.0       && <1.1,
                       mtl                     >= 2.1.2    && < 2.3,
                       ordered-containers      >= 0.2      && < 0.3,
                       prettyprinter           >= 1.2.0.1  && < 1.8,

clash-lib/src/Clash/Normalize.hs

@@ -182,7 +182,6 @@ normalize' nm q = do
   bndrsV <- Lens.use bindings
   exprM <- MVar.withMVar bndrsV (pure . lookupVarEnv nm)
   let nmS = showPpr (varName nm)
-  -- traceM ("normalize: start " <> nmS)
   case exprM of
     Just (Binding nm' sp inl pr tm r) -> do
       tcm <- Lens.view tcCache
@@ -229,8 +228,6 @@ normalize' nm q = do
                                 $ filter (`notElemVarEnv` extendVarEnv nm nm prevNorm) usedBndrs
                  in pure toNormalize
 
-            -- traceM ("normalize: end: " <> nmS)
-
             traverse_ (Monad.liftIO . MS.pushL q) toNormalize
             pure (nm, tmNorm)
          else