Unable Mustervergleich auf Word8

Question

In meinem Diener/Wai app Ich möchte redict alle Anfragen von "domain.com" auf "www.domain.com"

{-# LANGUAGE OverloadedStrings #-} 
--....... 

app :: Application 
app req respond = do 
    case requestHeaderHost req of 
    Just host -> do 
     case BS.unpack host of 
     "www":rest -> respond =<< redirect' HttpTp.status302 [] "domain.com" 

     _ -> undefined 

    Nothing -> undefined 

Der Fehler ist

zu tun

No instance for (Data.String.IsString GHC.Word.Word8) 
    arising from the literal ‘"www"’ 
In the pattern: "www" 

Ich weiß, was es bedeutet, und ich denke, dass die Klasse Show hätte für Word8 implementiert werden müssen, und wenn nicht, muss es einen Grund geben. Vielleicht mache ich es falsch?

Wie kann ich das beheben oder es noch besser machen?

Update:

Ich kann es nicht zu kompilieren:

-- 1 
Just host -> do 
    case BS.isPrefixOf (BS.pack $ show "www") host of 

-- 2 
Just host -> do 
    case Text.isPrefixOf (Text.pack $ show "www") host of 

-- 3 
Just host -> do 
    case DL.isPrefixOf "www" host of 

Es gibt immer Mismatch geben.

Answer 1

Das Muster "www":rest impliziert den Typ [[Char]], während Sie [Char] benötigen. Hier ist, was Ihr Muster sein sollte:

'w':'w':'w':rest 

Oh. Und Sie sollten Data.ByteString.Char8.unpack (oder Data.ByteString.Lazy.Char8.unpack, wenn es faul ist) verwenden, um mit Zeichen übereinstimmen zu können. Andernfalls müssen Sie anstelle des Zeichens den ASCII-Code 'w' verwenden.