From b0966e0e3b9729cb22167b0709dcee5ae0d8cfbe Mon Sep 17 00:00:00 2001
From: joshvera <josh@joshvera.com>
Date: Thu, 15 Nov 2018 13:32:58 -0500
Subject: [PATCH] valueRef should be a Unit

---
 test/Analysis/TypeScript/Spec.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/test/Analysis/TypeScript/Spec.hs b/test/Analysis/TypeScript/Spec.hs
index afde80a46..8c3ae0106 100644
--- a/test/Analysis/TypeScript/Spec.hs
+++ b/test/Analysis/TypeScript/Spec.hs
@@ -49,9 +49,7 @@ spec config = parallel $ do
       case ModuleTable.lookup "a.ts" <$> res of
         Right (Just (Module _ (scopeGraph, (heap, valueRef)) :| [])) -> do
           fmap (const ()) <$> ScopeGraph.lookupScopePath "baz" scopeGraph `shouldBe` Just (ScopeGraph.DPath (ScopeGraph.Declaration "baz") (Heap.Position 0))
-          let closure' (Rval (Closure packageInfo moduleInfo name params _ _)) = Right (Closure packageInfo moduleInfo name params (Right ()) ())
-              closure' _                                                       = Left ()
-          closure' valueRef `shouldBe` Right (Closure (PackageInfo { packageName = "analysis", packageResolutions = mempty }) (ModuleInfo "a.ts") "baz" [] (Right ()) ())
+          valueRef `shouldBe` Rval Unit
         other -> expectationFailure (show other)
 
     it "imports functions" $ do