From d3e045e8034c5473964c0529ffc1e181311842c2 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 1 Nov 2015 11:05:28 +0100
Subject: Removing useless Translations model

---
 src/server/Model/Message.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'src/server/Model/Message.hs')

diff --git a/src/server/Model/Message.hs b/src/server/Model/Message.hs
index f647ce2..a65e01c 100644
--- a/src/server/Model/Message.hs
+++ b/src/server/Model/Message.hs
@@ -12,7 +12,6 @@ import Model.Message.Lang
 import Model.Message.Translations (getNonFormattedMessage)
 import Model.Message.Parts
 
-import Model.Json.Translations
 import Model.Json.Translation
 
 getMessage :: Key -> Text
@@ -21,8 +20,8 @@ getMessage = getParamMessage []
 getParamMessage :: [Text] -> Key -> Text
 getParamMessage values key = replaceParts values (getNonFormattedMessage lang key)
 
-getTranslations :: Translations
-getTranslations = Translations (map getTranslation [minBound..])
+getTranslations :: [Translation]
+getTranslations = (map getTranslation [minBound..])
 
 getTranslation :: Key -> Translation
 getTranslation key = Translation (T.pack . show $ key) (getParts $ getNonFormattedMessage lang key)
-- 
cgit v1.2.3