mighty-metropolis

commit 501fd2c164b236c4fa8150986a92bdcb402bf1cf
parent 02783bd16da5d59f62ee3ca4d3b4e9be94814dea
Author: Jared Tobin <jared@jtobin.io>
Date:   Thu, 21 May 2020 21:10:44 +0400

Minor name tweaks.

Diffstat:
M
test/Spec.hs
 | 
12
++++++------

1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/test/Spec.hs b/test/Spec.hs
@@ -56,8 +56,8 @@ testParams = Params {
   , pthin    = 1000
   }
 
-getChainResults :: IO [Double]
-getChainResults = do
+vanillaTrace :: IO [Double]
+vanillaTrace = do
   let Params {..} = testParams
 
   boxed <- withSystemRandom . asGenIO $
@@ -66,8 +66,8 @@ getChainResults = do
   let positions = fmap (runIdentity . chainPosition) boxed
   pure (thin pthin positions)
 
-getTunableResults :: IO [Double]
-getTunableResults = do
+tunedTrace :: IO [Double]
+tunedTrace = do
   let Params {..} = testParams
 
   boxed <- withSystemRandom . asGenIO $
@@ -138,8 +138,8 @@ testTunables ts = describe "sampled tunables over exp(1)" $ do
 
 main :: IO ()
 main = do
-  xs <- getChainResults
-  ts <- getTunableResults
+  xs <- vanillaTrace
+  ts <- tunedTrace
 
   hspec $ do
     testHelperFunctions