Template Haskell: StringPrimL now takes [Word8]

compiler/hsSyn/Convert.lhs

@@ -719,7 +719,7 @@ cvtLit (CharL c)       = do { force c; return $ HsChar c }
 cvtLit (StringL s)     = do { let { s' = mkFastString s }
        		       	    ; force s'
        		       	    ; return $ HsString s' }
-cvtLit (StringPrimL s) = do { let { s' = mkFastString s }
+cvtLit (StringPrimL s) = do { let { s' = mkFastStringByteList s }
        			    ; force s'
        			    ; return $ HsStringPrim s' }
 cvtLit _ = panic "Convert.cvtLit: Unexpected literal"