Commit 3bd0f3d8 authored by Hans-Peter Deifel's avatar Hans-Peter Deifel 🐢

Fix benchmarks compilation

parent 5ba42bb3
......@@ -19,6 +19,7 @@ import MA.FunctorExpression.Type
import MA.FunctorExpression.Parser
import MA.Functors.Polynomial
import MA.Functors
import MA.FunctorDescription
benchmarks :: Benchmark
benchmarks = bgroup "Morphism Parser"
......@@ -36,7 +37,9 @@ benchIdentity = bgroup "Identity" $
benchMarkov :: Benchmark
benchMarkov = bgroup "Ax(R^X)" $
let Right f = annotateSorts <$> parseFunctorExpression registeredFunctors "" "{a,b,c,d,e}x(R^X)"
let
functors = map (map functorExprParser) registeredFunctors
Right f = annotateSorts <$> parseFunctorExpression functors "" "{a,b,c,d,e}x(R^X)"
in
[ benchParser "simple" f
"x: (a, {x: 0.5, y: 0.5})\n\
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment