fixup! Implement random WTA generator

06c20e06 · Hans-Peter Deifel · 26b4f209 · 06c20e06
Commit 06c20e06 authored Mar 22, 2019 by Hans-Peter Deifel 🐢
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

src/random-wta/Output.hs src/random-wta/Output.hs +2 -2

No files found.
--- a/src/random-wta/Output.hs
+++ b/src/random-wta/Output.hs
@@ -24,9 +24,9 @@ monoidForStates MaxInt   = "Z"
 monoidForStates OrWord   = "N"
 monoidForStates Powerset = "2"

-withMonoidForWeights :: (MonoidType m) -> Builder -> Builder
+withMonoidForWeights :: MonoidType m -> Builder -> Builder
 withMonoidForWeights MaxInt   inner = "(Z, max)^(" <> inner <> ")"
-withMonoidForWeights OrWord   inner = "(N, or)^(" <> inner <> ")"
+withMonoidForWeights OrWord   inner = "(Word, or)^(" <> inner <> ")"
 withMonoidForWeights Powerset inner = "P(" <> inner <> ")"

 polynomial :: SymbolSpec -> Builder