diff --git a/attoparsec-data.cabal b/attoparsec-data.cabal
--- a/attoparsec-data.cabal
+++ b/attoparsec-data.cabal
@@ -1,5 +1,5 @@
 name: attoparsec-data
-version: 1.0.4
+version: 1.0.4.1
 category: Parsing
 synopsis: Parsers for the standard Haskell data types
 homepage: https://github.com/nikita-volkov/attoparsec-data
diff --git a/library/Attoparsec/Data/Explicit.hs b/library/Attoparsec/Data/Explicit.hs
--- a/library/Attoparsec/Data/Explicit.hs
+++ b/library/Attoparsec/Data/Explicit.hs
@@ -94,7 +94,7 @@
 -}
 uuid :: A.Parser UUID
 uuid = do
-  text <- A.takeWhile (\x -> isAlphaNum x || x == '_')
+  text <- A.take 36
   case Uuid.fromText text of
     Just uuid -> return uuid
     Nothing -> fail (showString "Unparsable UUID: " (show text))