blob: be665a84c5688bbb84456954c776fb378ba75368 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
module View.Price
( price
) where
import String exposing (..)
import Model exposing (Model)
import Model.Translations exposing (getMessage)
price : Model -> Int -> String
price model amount =
( formatInt amount
++ " "
++ model.conf.currency
)
formatInt : Int -> String
formatInt n =
abs n
|> toString
|> toList
|> List.reverse
|> group 3
|> List.intersperse [' ']
|> List.concat
|> List.reverse
|> fromList
|> append (if n < 0 then "-" else "")
group : Int -> List a -> List (List a)
group n xs =
if List.length xs <= n
then
[xs]
else
let take = List.take n xs
drop = List.drop n xs
in take :: (group n drop)
|
