From 27e11b20b06f2f2dbfb56c0998a63169b4b8abc4 Mon Sep 17 00:00:00 2001
From: Joris
Date: Wed, 8 Nov 2017 23:47:26 +0100
Subject: Use a better project structure

---
 src/common/View/Format.hs | 69 -----------------------------------------------
 1 file changed, 69 deletions(-)
 delete mode 100644 src/common/View/Format.hs

(limited to 'src/common/View')

diff --git a/src/common/View/Format.hs b/src/common/View/Format.hs
deleted file mode 100644
index a7fa4e3..0000000
--- a/src/common/View/Format.hs
+++ /dev/null
@@ -1,69 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-
-module Common.View.Format
-  ( shortDay
-  , longDay
-  , price
-  , number
-  ) where
-
-import Data.Text (Text)
-import qualified Data.Text as T
-import Data.List (intersperse)
-import Data.Maybe (fromMaybe)
-import Data.Time.Calendar (Day, toGregorian)
-
-import qualified Common.Message as Message
-import qualified Common.Message.Key as Key
-import Common.Model.Currency (Currency(..))
-
-shortDay :: Day -> Text
-shortDay date =
-  Message.get $ Key.Date_Short
-    day
-    month
-    (fromIntegral year)
-  where (year, month, day) = toGregorian date
-
-longDay :: Day -> Text
-longDay date =
-  Message.get $ Key.Date_Long
-    day
-    (fromMaybe "−" . fmap Message.get . monthToKey $ month)
-    (fromIntegral year)
-  where (year, month, day) = toGregorian date
-
-        monthToKey 1  = Just Key.Month_January
-        monthToKey 2  = Just Key.Month_February
-        monthToKey 3  = Just Key.Month_March
-        monthToKey 4  = Just Key.Month_April
-        monthToKey 5  = Just Key.Month_May
-        monthToKey 6  = Just Key.Month_June
-        monthToKey 7  = Just Key.Month_July
-        monthToKey 8  = Just Key.Month_August
-        monthToKey 9  = Just Key.Month_September
-        monthToKey 10 = Just Key.Month_October
-        monthToKey 11 = Just Key.Month_November
-        monthToKey 12 = Just Key.Month_December
-        monthToKey _ = Nothing
-
-price :: Currency -> Int -> Text
-price (Currency currency) amount = T.concat [ number amount, " ", currency ]
-
-number :: Int -> Text
-number n =
-  T.pack
-  . (++) (if n < 0 then "-" else "")
-  . reverse
-  . concat
-  . intersperse " "
-  . group 3
-  . reverse
-  . show
-  . abs $ n
-
-group :: Int -> [a] -> [[a]]
-group n xs =
-  if length xs <= n
-    then [xs]
-    else (take n xs) : (group n (drop n xs))
-- 
cgit v1.2.3