chore(tazblog): Remove i18n features

The blog has been English only for a few years. Old entries that
survived the migration to DNS will still be accessible.
This commit is contained in:
Vincent Ambo 2019-08-25 22:53:38 +01:00
parent 094aafecdd
commit 561ed1fbbb
7 changed files with 77 additions and 164 deletions

View file

@ -40,7 +40,6 @@ import Data.List (sortBy)
import Data.Text as T (Text, concat, pack)
import Data.Text.Encoding (decodeUtf8', encodeUtf8)
import Data.Time (Day)
import Locales (BlogLang (..))
import Network.DNS (DNSError, lookupTXT)
import qualified Network.DNS.Resolver as R
@ -54,7 +53,6 @@ instance Show EntryId where
data Entry
= Entry
{ entryId :: EntryId,
lang :: BlogLang,
author :: Text,
title :: Text,
text :: Text,
@ -166,7 +164,6 @@ entryFromDNS cache eid = do
$ either Left
( \text -> Right $ Entry
{ entryId = eid,
lang = EN,
author = "tazjin",
title = t,
text = text,