From a3bab4f2a0cc8a6a95753dc91d8e862f40c80dcc Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Mon, 10 Aug 2015 23:30:31 +0200
Subject: Embedding messages into the page

---
 src/server/Message.hs | 45 ---------------------------------------------
 1 file changed, 45 deletions(-)
 delete mode 100644 src/server/Message.hs

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

diff --git a/src/server/Message.hs b/src/server/Message.hs
deleted file mode 100644
index 1673b22..0000000
--- a/src/server/Message.hs
+++ /dev/null
@@ -1,45 +0,0 @@
-module Message
-  ( getMessage
-  , getVarMessage
-  ) where
-
-import Data.Maybe (listToMaybe, fromMaybe)
-
-import Text.ParserCombinators.Parsec
-
-import Message.Key (Key)
-import Message.Lang
-import Message.Translations (getNonFormattedMessage)
-
-getMessage :: Key -> String
-getMessage = getVarMessage []
-
-getVarMessage :: [String] -> Key -> String
-getVarMessage values key =
-  replaceParts values (getParts (getNonFormattedMessage French key))
-
-replaceParts :: [String] -> [Part] -> String
-replaceParts values = concatMap (replacePart values)
-
-replacePart :: [String] -> Part -> String
-replacePart _ (Str str) = str
-replacePart values (Num n) =
-  fromMaybe ("{" ++ show n ++ "}") . listToMaybe . drop (n - 1) $ values
-
-data Part =
-  Num Int
-  | Str String
-
-getParts :: String -> [Part]
-getParts str =
-  case parse partsParser "" str of
-    Right parts -> parts
-    Left _ -> []
-
-partsParser :: Parser [Part]
-partsParser = many partParser
-
-partParser :: Parser Part
-partParser =
-  (do _ <- string "{"; n <- read <$> many1 digit; _ <- string "}"; return (Num n))
-  <|> (do str <- many1 (noneOf "{"); return (Str str))
-- 
cgit v1.2.3