gexes :: [String -> String]   -- ^ A list of functions for removing HTML-tags
regexes = [ rm "<meta [^>]*>", rm "<link [^>]*>", rm "<link [^>]*\">", rm "<img [^>]*>"
          , rm "<br[^>]*>", rm "<col [^>]*>" ]
  where
    rm s i = subRegex (mkRegexWithOpts s False True) i ""


{- | Fetch a translation from the 'I18N' database, found in /config.yaml/ under
    the 'I18N' section.

    If the 'Text' that is to be translated can't be found in the given database
    it'll fall back on the given 'Text' (the Finnish version). If the selected
    'Lang'uage in this case is not Finnish it will also warn the user that no
    translation for the selected 'Text' can be found.
-}
t
regexes :: [String -> String]
regexes = [ rm "<meta [^>]*>", rm "<link [^>]*>", rm "<link [^>]*\">", rm "<img [^>]*>"
          , rm "<br[^>]*>", rm "<col [^>]*>" ]
  where
    rm s i = subRegex (mkRegexWithOpts s False True) i ""


{- | Fetch a translation from the 'I18N' database, found in /config.yaml/ under
    the 'I18N' section.

    If the 'Text' that is to be translated can't be found in the given database
    it'll fall back on the given 'Text' (the Finnish version). If the selected
    'Lang'uage in this case is not Finnish it will also warn the user that no
    translation for the selected 'Text' can be found.
-}
regexes = [ rm "<meta [^>]*>", rm "<link [^>]*>", rm "<link [^>]*\">", rm "<img [^>]*>"
          , rm "<br[^>]*>", rm "<col [^>]*>" ]
  where
    rm s i = subRegex (mkRegexWithOpts s False True) i ""


{- | Fetch a translation from the 'I18N' database, found in /config.yaml/ under
    the 'I18N' section.

    If the 'Text' that is to be translated can't be found in the given database
    it'll fall back on the given 'Text' (the Finnish version). If the selected
    'Lang'uage in this case is not Finnish it will also warn the user that no
    translation for the selected 'Text' can be found.
-}