diff --git a/library/YamlUnscrambler.hs b/library/YamlUnscrambler.hs
--- a/library/YamlUnscrambler.hs
+++ b/library/YamlUnscrambler.hs
@@ -115,7 +115,7 @@
 getExpectations =
   valueExpectation
 
--- *
+-- * --
 
 data Value a = Value
   { valueExpectation :: Ex.Value,
@@ -188,7 +188,7 @@
 scalarsValue scalars =
   value scalars Nothing Nothing
 
--- *
+-- * --
 
 data Scalar a = Scalar
   { scalarExpectation :: Ex.Scalar,
@@ -299,7 +299,7 @@
           Left err ->
             Left $ fromString err
 
--- *
+-- * --
 
 data Mapping a = Mapping
   { mappingExpectation :: Ex.Mapping,
@@ -361,7 +361,7 @@
             keysAvail =
               fmap fst input
 
--- *
+-- * --
 
 data Sequence a = Sequence
   { sequenceExpectation :: Ex.Sequence,
@@ -421,7 +421,7 @@
           Err.ErrAtPath [] $
             Err.NoneOfSequenceKeysFoundErr byKeyExpectation (toList keys)
 
--- *
+-- * --
 
 data String a = String
   { stringExpectation :: Ex.String,
@@ -473,7 +473,7 @@
     (Ex.FormattedString format)
     (first fromString . TextAtto.parseOnly parser)
 
--- *
+-- * --
 
 data ByKey key a = ByKey
   { byKeyExpectation :: Ex.ByKey key,
@@ -540,7 +540,7 @@
         Nothing ->
           throwE (fromList keys)
 
--- *
+-- * --
 
 data ByOrderErr
   = NotEnoughElementsByOrderErr
diff --git a/library/YamlUnscrambler/Err.hs b/library/YamlUnscrambler/Err.hs
--- a/library/YamlUnscrambler/Err.hs
+++ b/library/YamlUnscrambler/Err.hs
@@ -3,7 +3,7 @@
     Err (..),
     atSegment,
 
-    -- *
+    -- * --
     MaxInputSize (..),
     Signed (..),
     NumeralSystem (..),
diff --git a/library/YamlUnscrambler/Expectations.hs b/library/YamlUnscrambler/Expectations.hs
--- a/library/YamlUnscrambler/Expectations.hs
+++ b/library/YamlUnscrambler/Expectations.hs
@@ -7,7 +7,7 @@
     ByKey (..),
     ByOrder (..),
 
-    -- *
+    -- * --
     MaxInputSize (..),
     Signed (..),
     NumeralSystem (..),
@@ -19,7 +19,7 @@
 import YamlUnscrambler.Prelude hiding (String)
 import qualified YamlUnscrambler.Util.Maybe as Maybe
 
--- *
+-- * --
 
 data Value
   = Value
@@ -51,7 +51,7 @@
   | ByOrderSequence ByOrder
   | ByKeySequence (ByKey Int)
 
--- *
+-- * --
 
 data String
   = -- | Any string as it is.
@@ -81,7 +81,7 @@
   | BothByOrder ByOrder ByOrder
   | FetchByOrder Value
 
--- *
+-- * --
 
 instance Semigroup Value where
   (<>) (Value lScalars lMappings lSequences) (Value rScalars rMappings rSequences) =
diff --git a/library/YamlUnscrambler/Util/Yaml.hs b/library/YamlUnscrambler/Util/Yaml.hs
--- a/library/YamlUnscrambler/Util/Yaml.hs
+++ b/library/YamlUnscrambler/Util/Yaml.hs
@@ -9,7 +9,7 @@
 
 parseByteStringToRawDoc :: ByteString -> Either Text YamlParser.RawDoc
 parseByteStringToRawDoc input =
-  first showAsText $
+  first (mappend "YAML AST parsing: " . showAsText) $
     unsafePerformIO $
       try @SomeException $
         Conduit.runConduitRes $
diff --git a/yaml-unscrambler.cabal b/yaml-unscrambler.cabal
--- a/yaml-unscrambler.cabal
+++ b/yaml-unscrambler.cabal
@@ -1,5 +1,5 @@
 name: yaml-unscrambler
-version: 0.1.0.11
+version: 0.1.0.12
 synopsis: Flexible declarative YAML parsing toolkit
 stability: Experimental
 homepage: https://github.com/nikita-volkov/yaml-unscrambler