From f1e95891617b705c5bbe04fb20d64b9dab9346b1 Mon Sep 17 00:00:00 2001 From: Paul Oliver Date: Wed, 17 Dec 2025 02:26:07 +0000 Subject: Adds battery monitoring service via INA226/I2C (WIP) --- hsm-core/Hsm/Core/Show.hs | 9 +++++++++ 1 file changed, 9 insertions(+) create mode 100644 hsm-core/Hsm/Core/Show.hs (limited to 'hsm-core/Hsm') diff --git a/hsm-core/Hsm/Core/Show.hs b/hsm-core/Hsm/Core/Show.hs new file mode 100644 index 0000000..601ea03 --- /dev/null +++ b/hsm-core/Hsm/Core/Show.hs @@ -0,0 +1,9 @@ +-- Defines some convenience printing functions +module Hsm.Core.Show + ( showHex + ) where + +import Numeric qualified as N (showHex) + +showHex :: Integral a => a -> String +showHex v = "0x" <> N.showHex v "" -- cgit v1.2.1