From 7194cddb28656c721342c2ef604f9f9fb0692960 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 19 Nov 2017 00:20:25 +0100
Subject: Show payment count and partition

- Also fixes exceedingPayer in back by using only punctual payments
---
 server/src/View/Page.hs | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

(limited to 'server/src/View/Page.hs')

diff --git a/server/src/View/Page.hs b/server/src/View/Page.hs
index ff7bdc7..27b4f26 100644
--- a/server/src/View/Page.hs
+++ b/server/src/View/Page.hs
@@ -1,5 +1,3 @@
-{-# LANGUAGE OverloadedStrings #-}
-
 module View.Page
   ( page
   ) where
@@ -16,9 +14,8 @@ import qualified Text.Blaze.Html5              as H
 import           Text.Blaze.Html5.Attributes
 import qualified Text.Blaze.Html5.Attributes   as A
 
-import qualified Common.Message                as Message
-import qualified Common.Message.Key            as Key
 import           Common.Model                  (InitResult)
+import qualified Common.Msg                    as Msg
 
 import           Design.Global                 (globalDesign)
 
@@ -28,7 +25,7 @@ page initResult =
     H.head $ do
       meta ! charset "UTF-8"
       meta ! name "viewport" ! content "width=device-width, initial-scale=1, maximum-scale=1, user-scalable=0"
-      H.title (toHtml $ Message.get Key.App_Title)
+      H.title (toHtml $ Msg.get Msg.App_Title)
       script ! src "javascript/main.js" $ ""
       jsonScript "init" initResult
       link ! rel "stylesheet" ! type_ "text/css" ! href "css/reset.css"
-- 
cgit v1.2.3