diff --git a/language-dot.cabal b/language-dot.cabal
--- a/language-dot.cabal
+++ b/language-dot.cabal
@@ -1,5 +1,5 @@
 name:         language-dot
-version:      0.0.3
+version:      0.0.4
 category:     Language
 synopsis:     A library for the analysis and creation of Graphviz DOT files
 description:  A library for the analysis and creation of Graphviz DOT files.
diff --git a/src/Language/Dot/Parser.hs b/src/Language/Dot/Parser.hs
--- a/src/Language/Dot/Parser.hs
+++ b/src/Language/Dot/Parser.hs
@@ -19,8 +19,6 @@
 import Numeric             (readFloat)
 
 import Text.Parsec
-import Text.Parsec.Char
-import Text.Parsec.Combinator
 import Text.Parsec.Language
 import Text.Parsec.String
 import Text.Parsec.Token
@@ -297,7 +295,7 @@
     lexeme'
       ( do s <- parseSign
            l <- fmap (fromMaybe 0) (optionMaybe parseNatural)
-           char '.'
+           _ <- char '.'
            r <- many1 digit
            maybe err return (make s (show l ++ "." ++ r))
       )
@@ -378,10 +376,10 @@
 
 parseXmlTagClose :: Maybe XmlName -> Parser ()
 parseXmlTagClose mn0 =
-    ( do char '<'
-         char '/'
+    ( do _  <- char '<'
+         _  <- char '/'
          n1 <- parseXmlName
-         char '>'
+         _  <- char '>'
          when (isJust mn0 && fromJust mn0 /= n1) parserZero
     )
     <?> "XML closing tag " ++ "(" ++ which ++ ")"