Skip to content

Commit

Permalink
Drop 'capitalize', it's already uppercased
Browse files Browse the repository at this point in the history
No need for capitalize really, data constructors are uppercased
already and that's what show uses.
  • Loading branch information
zudov committed Nov 23, 2017
1 parent 45025fc commit 86e58be
Showing 1 changed file with 1 addition and 4 deletions.
5 changes: 1 addition & 4 deletions src/Dashboard/View.purs
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand All @@ -108,7 +105,7 @@ formatStatus { id: PipelineId id, status } =
]
[ H.text $ "#" <> show id
, H.br []
, H.text $ capitalize $ show status
, H.text $ show status
]


Expand Down

0 comments on commit 86e58be

Please sign in to comment.