diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2026-04-07 20:08:09 +0200 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2026-04-07 20:10:29 +0200 |
| commit | eea899462d042d52b4827a314ce690d1651a79fa (patch) | |
| tree | 11bb9ab2c300ad7159e276f0b8c55d56baf86329 /src/Util.hs | |
| parent | 63bcac7e00d5dfe857ec57f0eb999dad5b3964b6 (diff) | |
Event hotlinking
Diffstat (limited to 'src/Util.hs')
| -rw-r--r-- | src/Util.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Util.hs b/src/Util.hs index 95cc4ce..4c09705 100644 --- a/src/Util.hs +++ b/src/Util.hs @@ -25,7 +25,7 @@ data YMD = YMD {-# UNPACK #-} !Int data HMS = HMS {-# UNPACK #-} !Word8 {-# UNPACK #-} !Word8 {-# UNPACK #-} !Word8 - deriving (Show) + deriving (Show, Eq, Ord) pad :: Show a => Char -> Int -> a -> String pad c w val = |