patrickaldis/garnet
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Format

Browse Source
This commit is contained in:
George Thomas 2026-01-08 00:53:20 +00:00
parent 31082a85d5
commit a3f91606f7
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
haskell/Pre.hs
View File

@ -184,8 +184,9 @@ adjacentPairs = \case
sortPair :: (Ord a) => (a, a) -> (a, a) sortPair :: (Ord a) => (a, a) -> (a, a)
sortPair (a, b) = if a <= b then (a, b) else (b, 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, {- | This is `Data.Tree.drawTree` with the ASCII characters replaced with Unicode box drawing characters,
-- and using `Text` instead of `String`. and using `Text` instead of `String`.
-}
drawTree :: Tree Text -> Text drawTree :: Tree Text -> Text
drawTree = T.unlines . draw drawTree = T.unlines . draw
where where