@@ -17,6 +17,7 @@ import qualified Data.Map as M
1717import qualified Data.Text.IO as TIO
1818import System.IO
1919import Control.Monad.State
20+import Control.DeepSeq
2021
2122dumpcsv :: Relation -> IO ()
2223dumpcsv rel = case relationAsCSV rel of
@@ -52,7 +53,7 @@ matrixRun (BigrelArgs attributeCount tupleCount tutd) = do
5253 Right rel -> if tutd == "" then
5354 putStrLn "Done."
5455 else do
55− let setx = Assign "x" (ExistingRelation rel)
56+ let setx = Assign "x" (ExistingRelation (force rel))
5657 context = execState (evalContextExpr setx) dateExamples
5758 interpreted = interpretDatabaseExpr context tutd
5859 plan = interpretRODatabaseContextOp context $ ":showplan " ++ tutd