diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2024-02-25 21:01:13 +0100 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2024-02-25 21:01:13 +0100 |
| commit | f72bf16e2edc8d654e661cd59f820409219e5f27 (patch) | |
| tree | 2986fcd5421c474f50b76214eccea93cb74850e0 /src/HSVIS/Pretty.hs | |
| parent | b0c81ee7def783037b514af9fdeab06f7e3bdb13 (diff) | |
Add HSVIS module prefix
Diffstat (limited to 'src/HSVIS/Pretty.hs')
| -rw-r--r-- | src/HSVIS/Pretty.hs | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/src/HSVIS/Pretty.hs b/src/HSVIS/Pretty.hs new file mode 100644 index 0000000..ffde90e --- /dev/null +++ b/src/HSVIS/Pretty.hs @@ -0,0 +1,11 @@ +module HSVIS.Pretty where + + +class Pretty a where + prettysPrec :: Int -> a -> ShowS + +prettyPrec :: Pretty a => Int -> a -> String +prettyPrec d x = prettysPrec d x "" + +pretty :: Pretty a => a -> String +pretty x = prettyPrec 0 x |