From 3f66cece85ba7ff068d6097e5929bec2f003e035 Mon Sep 17 00:00:00 2001 From: Sean D Gillespie Date: Sun, 17 Mar 2024 21:39:47 -0400 Subject: [PATCH] fix(bench): compilation failures --- bench/Main.hs | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) diff --git a/bench/Main.hs b/bench/Main.hs index 2cd13ae..cd90144 100644 --- a/bench/Main.hs +++ b/bench/Main.hs @@ -1,8 +1,7 @@ module Main (main) where -import Data.Gibberish.Format -import Data.Gibberish.Trigraph (genTrigraph) -import Data.Gibberish.Types (Trigraph (..), Word (..)) +import Data.Gibberish (Trigraph (..), Word (..), genTrigraph) +import Data.Gibberish.Formatting qualified as Fmt import Paths_gibberish (getDataDir) import Criterion.Main @@ -34,12 +33,12 @@ main = ] formatWords' :: [Text] -> Text -formatWords' = formatWords opts . map Word +formatWords' = Fmt.formatWords opts . map Word where opts = - FormatOpts - { optMaxLen = MaxLen 100, - optMaxHeight = MaxHeight 1000, - optSeparator = Separator " ", + Fmt.FormatOpts + { optMaxLen = Fmt.MaxLen 100, + optMaxHeight = Fmt.MaxHeight 1000, + optSeparator = Fmt.Separator " ", optExactWords = Nothing }