remove redundant use of display

pa-ba · Oct 23, 2024 · fc5b676 · fc5b676
1 parent 2502419
commit fc5b676
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/examples/gui/src/Timer.hs b/examples/gui/src/Timer.hs
@@ -58,7 +58,7 @@ window = do
     let currentSig = map (box fst') counterSig
     let maxSig = map (box snd') counterSig
 
-    label <- mkLabel (map (box display) currentSig)
+    label <- mkLabel currentSig
     pb <- mkProgressBar (const 0) maxSig currentSig
 
     mkConstVStack (slider :* resetBtn :* label :* pb)