Refactoring: Moved Happstack things to Server.hs

1 files changed, 0 insertions, 8 deletions

diff --git a/src/BlogDB.hs b/src/BlogDB.hs
index e2787794c344..ca20aedb091d 100644
--- a/src/BlogDB.hs
+++ b/src/BlogDB.hs
@@ -15,7 +15,6 @@ import           Data.SafeCopy          (SafeCopy, base, deriveSafeCopy)
 import           Data.Text              (Text, pack)
 import           Data.Text.Lazy         (toStrict)
 import           Data.Time
-import           Happstack.Server       (FromReqURI (..))
 import           System.Environment     (getEnv)
 
 import qualified Crypto.Hash.SHA512     as SHA (hash)
@@ -40,13 +39,6 @@ instance Show BlogLang where
     show DE = "de"
     show EN = "en"
 
-instance FromReqURI BlogLang where
-  fromReqURI sub =
-    case map toLower sub of
-      "de" -> Just DE
-      "en" -> Just EN
-      _    -> Nothing
-
 $(deriveSafeCopy 0 'base ''BlogLang)
 
 data Comment = Comment {