okupLang :: Lang      -- ^ The 'Lang'uage to look for.
        -> Map Lang y   -- ^ A map to fetch type 'y' from.
        -> y            -- ^ The value of type 'y' found in the map.
lookupLang i = fromJust . Map.lookup i


lookupLang :: Lang      -- ^ The 'Lang'uage to look for.
        -> Map Lang y   -- ^ A map to fetch type 'y' from.
        -> y
lookupLang i = fromJust . Map.lookup i
lookupLang i = fromJust . Map.lookup i