ang :: Lang     -- ^ The 'Lang' to use on WebOodi.
            -> Text     -- ^ A 'Text' string consisting of the number to switch to in the WebOodi URL.
weboodiLang lang
            | "fi" <- lang = "1"
            | "se" <- lang = "2"
            | "en" <- lang = "6"
            | otherwise    = ""


{- | 
weboodiLang :: Lang     -- ^ The 'Lang' to use on WebOodi.
            -> Text
weboodiLang lang
            | "fi" <- lang = "1"
            | "se" <- lang = "2"
            | "en" <- lang = "6"
            | otherwise    = ""
weboodiLang lang
            | "fi" <- lang = "1"
            | "se" <- lang = "2"
            | "en" <- lang = "6"
            | otherwise    = ""