diff --git a/src/Dashboard/View.purs b/src/Dashboard/View.purs index c41a181b..48c83d8b 100644 --- a/src/Dashboard/View.purs +++ b/src/Dashboard/View.purs @@ -97,9 +97,6 @@ statusIcon status = JobSkipped -> ArrowCircleORight (ClassName <$> [ "fa-2x", "align-middle" ]) -capitalize :: String -> String -capitalize s = (String.toUpper $ String.take 1 s) <> (String.drop 1 s) - formatStatus :: ∀ p a. PipelineRow -> HTML p a formatStatus { id: PipelineId id, status } = H.div @@ -108,7 +105,7 @@ formatStatus { id: PipelineId id, status } = ] [ H.text $ "#" <> show id , H.br [] - , H.text $ capitalize $ show status + , H.text $ show status ]