Merge pull request #84 from haskell-works/fix-warnings

Fix warnings

Author: newhoggy

src/HaskellWorks/Data/Xml/Grammar.hs

@@ -22,7 +22,7 @@ data XmlElementType
   | XmlElementTypeCData
   | XmlElementTypeMeta String
 
-parseXmlString :: (P.Parser t Word8, IsString t) => T.Parser t String
+parseXmlString :: (P.Parser t Word8) => T.Parser t String
 parseXmlString = do
   q <- satisfyChar (=='"') <|> satisfyChar (=='\'')
   many (satisfyChar (/= q))
@@ -36,10 +36,10 @@ parseXmlElement = comment <|> cdata <|> doc <|> meta <|> element
   doc     = const XmlElementTypeDocument <$> string "?xml"
   element = XmlElementTypeElement        <$> parseXmlToken
 
-parseXmlToken :: (P.Parser t Word8, IsString t) => T.Parser t String
+parseXmlToken :: (P.Parser t Word8) => T.Parser t String
 parseXmlToken = many $ satisfyChar isNameChar <?> "invalid string character"
 
-parseXmlAttributeName :: (P.Parser t Word8, IsString t) => T.Parser t String
+parseXmlAttributeName :: (P.Parser t Word8) => T.Parser t String
 parseXmlAttributeName = parseXmlToken
 
 isNameStartChar :: Char -> Bool

src/HaskellWorks/Data/Xml/Succinct/Cursor/Token.hs

@@ -14,7 +14,6 @@ import HaskellWorks.Data.Xml.Token.Tokenize
 import Prelude                                        hiding (drop)
 
 import qualified Data.Attoparsec.ByteString.Char8 as ABC
-import qualified Data.ByteString.Internal         as BSI
 
 xmlTokenAt :: (Rank1 w, Select1 v, TestBit w) => XmlCursor ByteString v w -> Maybe (XmlToken String Double)
 xmlTokenAt k = if balancedParens k .?. lastPositionOf (cursorRank k)