From a3f91606f7649d3b57da757bc4baa9f0944a33ae Mon Sep 17 00:00:00 2001 From: George Thomas Date: Thu, 8 Jan 2026 00:53:20 +0000 Subject: [PATCH] Format --- haskell/Pre.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/haskell/Pre.hs b/haskell/Pre.hs index e9b46c5..9be14d6 100644 --- a/haskell/Pre.hs +++ b/haskell/Pre.hs @@ -184,8 +184,9 @@ adjacentPairs = \case sortPair :: (Ord a) => (a, a) -> (a, a) sortPair (a, b) = if a <= b then (a, b) else (b, a) --- | This is `Data.Tree.drawTree` with the ASCII characters replaced with Unicode box drawing characters, --- and using `Text` instead of `String`. +{- | This is `Data.Tree.drawTree` with the ASCII characters replaced with Unicode box drawing characters, +and using `Text` instead of `String`. +-} drawTree :: Tree Text -> Text drawTree = T.unlines . draw where