From ef344c57945d455c6752c2032c701d7f9315f69b Mon Sep 17 00:00:00 2001 From: tv Date: Sat, 17 Oct 2015 19:08:15 +0200 Subject: replace hirc.hs by main.hs --- Hirc/Format.hs | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 Hirc/Format.hs (limited to 'Hirc/Format.hs') diff --git a/Hirc/Format.hs b/Hirc/Format.hs new file mode 100644 index 0000000..bf6546a --- /dev/null +++ b/Hirc/Format.hs @@ -0,0 +1,15 @@ +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE RecordWildCards #-} +module Hirc.Format where + +import Hirc.Types + +formatMessage :: Message -> String +formatMessage Message{..} = + maybe "" prefix m_prefix ++ m_command ++ params + where + prefix Prefix{..} = + ":" ++ p_name ++ maybe "" user p_user ++ maybe "" host p_host ++ " " + user x = "!" ++ x + host x = "@" ++ x + params = concatMap (" "++) (init m_params) ++ " :" ++ last m_params -- cgit v1.2.3