Remove hash sign from the channel name

Author: rexim

src/Bot/Links.hs

@@ -136,7 +136,7 @@ linkFilter reaction =
     (\case
        Message { messageContent = message
                , messageSender = sender@Sender { senderRoles = []
-                                               , senderChannel = TwitchChannel channel
+                                               , senderChannel = channel
                                                }
                }
          | textContainsLink message -> do
@@ -145,5 +145,5 @@ linkFilter reaction =
              sender
              [qms|Links are not allowed for untrusted users.
                   Subscribe to gain the trust instantly:
-                  https://twitch.tv/{channel}/subscribe|]
+                  https://twitch.tv/{unChannel $ channelToName channel}/subscribe|]
        msg -> runReaction reaction msg)

src/Transport.hs

@@ -1,5 +1,6 @@
 {-# LANGUAGE DeriveFunctor #-}
-
+{-# LANGUAGE ViewPatterns #-}
+{-# LANGUAGE OverloadedStrings #-}
 module Transport where
 
 import Control.Concurrent.STM
@@ -72,11 +73,12 @@ senderAuthority sender = any (`elem` senderRoles sender) authorityRoles
 
 channelToName :: Channel -> ChannelName
 channelToName (DiscordChannel x) = ChannelName $ T.pack $ show x
-channelToName (TwitchChannel x) = ChannelName x
+channelToName (TwitchChannel (T.uncons -> Just ('#', x))) = ChannelName x
+channelToName (TwitchChannel _) = ChannelName ""
 
 newtype ChannelName = ChannelName
   { unChannel :: T.Text
-  }
+  } deriving Eq
 
 data InEvent
   = Started