Remove mwc-random pin and make sure benchmarks work.

.licenses/semantic/cabal/mwc-random.txt

@@ -1,7 +1,7 @@
 ---
 type: cabal
 name: mwc-random
-version: 0.13.3.2
+version: 0.14.0.0
 summary: Fast, high quality pseudo random number generation
 homepage: https://github.com/bos/mwc-random
 license: bsd-2-clause
@@ -31,4 +31,4 @@ LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
 DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
 THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
-OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

src/Control/Abstract/Heap.hs

@@ -433,6 +433,7 @@ deriving instance Eq address => Eq (HeapError address resume)
 deriving instance Show address => Show (HeapError address resume)
 instance Show address => Show1 (HeapError address) where
   liftShowsPrec _ _ = showsPrec
+  
 instance Eq address => Eq1 (HeapError address) where
   liftEq _ CurrentFrameError CurrentFrameError           = True
   liftEq _ (LookupAddressError a) (LookupAddressError b) = a == b
@@ -441,6 +442,17 @@ instance Eq address => Eq1 (HeapError address) where
   liftEq _ (LookupFrameError a) (LookupFrameError b)     = a == b
   liftEq _ _ _                                           = False
 
+instance NFData address => NFData1 (HeapError address) where
+  liftRnf _ x = case x of
+    CurrentFrameError    -> ()
+    LookupAddressError a -> rnf x
+    LookupFrameError a   -> x `seq` ()
+    LookupLinksError a   -> rnf x
+    LookupLinkError p    -> rnf x
+
+instance (NFData address, NFData resume) => NFData (HeapError address resume) where
+  rnf = liftRnf rnf
+
 throwHeapError  :: ( Member (Resumable (BaseError (HeapError address))) sig
                    , Member (Reader ModuleInfo) sig
                    , Member (Reader Span) sig

src/Control/Abstract/ScopeGraph.hs

@@ -269,6 +269,18 @@ instance Eq1 (ScopeError address) where
   liftEq _ CurrentScopeError                    CurrentScopeError                   = True
   liftEq _ _                                    _                                   = False
 
+instance NFData1 (ScopeError address) where
+  liftRnf _ x = case x of
+    ScopeError d s                -> rnf d `seq` rnf s
+    LookupScopeError              -> ()
+    ImportReferenceError          -> ()
+    LookupPathError d             -> rnf d
+    LookupDeclarationScopeError d -> rnf d
+    CurrentScopeError             -> ()
+
+instance NFData return => NFData (ScopeError address return) where
+  rnf = liftRnf rnf
+
 alloc :: (Member (Allocator address) sig, Carrier sig m) => Name -> Evaluator term address value m address
 alloc = send . flip Alloc ret