src/Zenith/GUI.hs

@@ -20,7 +20,7 @@ import Data.Maybe (fromJust, fromMaybe, isJust, isNothing)
 import qualified Data.Text as T
 import qualified Data.Text.Encoding as E
 import Data.Time.Clock.POSIX (posixSecondsToUTCTime)
-import Database.Esqueleto.Experimental (ConnectionPool)
+import Database.Esqueleto.Experimental (ConnectionPool, fromSqlKey)
 import Database.Persist
 import Lens.Micro ((&), (+~), (.~), (?~), (^.), set)
 import Lens.Micro.TH
@@ -60,6 +60,7 @@ import Zenith.Utils
   , validBarValue
   , validateAddressBool
   , isValidString
+  , padWithZero
   )
 
 data AppEvent
@@ -805,7 +806,10 @@ buildUI wenv model = widgetTree
         [onClick $ ShowTx idx, alignLeft]
         (hstack
           [
-            (label "Descr: ") `styleBasic` [textFont "Bold"]
+            label
+              (T.pack $ 
+                 padWithZero 3 $
+                 show (fromSqlKey (entityKey ab)))  `styleBasic` [textFont "Bold"]
           , spacer
           , label
               (T.pack $

src/Zenith/Utils.hs

@@ -153,3 +153,8 @@ isValidString c = do
   let a = T.unpack c
   isValidContent a
 
+padWithZero :: Int -> String -> String
+padWithZero n s 
+  | (length s) >= n  = s 
+  | otherwise  = padWithZero n ("0" ++ s)
+