Muse reader: correctly remove indentation from notes

Exactly one space is required and considered to be part of the marker.

1 files changed, 8 insertions, 0 deletions

diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs
index 0cccb50e6..c0da48586 100644
--- a/test/Tests/Readers/Muse.hs
+++ b/test/Tests/Readers/Muse.hs
@@ -385,6 +385,14 @@ tests =
                     , "         </example>"
                     ] =?>
           definitionList [ ("term", [codeBlock "foo" <> para "bar" <> codeBlock "baz"]) ]
+        , "Example inside note" =:
+          T.unlines [ "Foo[1]"
+                    , ""
+                    , "[1] <example>"
+                    , "    bar"
+                    , "    </example>"
+                    ] =?>
+          para ("Foo" <> note (codeBlock "bar"))
         ]
       , testGroup "Literal blocks"
         [ test emacsMuse "Literal block"