Fix issue 21.

typesanitizer · Nov 24, 2018 · dc6c469 · dc6c469
1 parent 5e81a9f
commit dc6c469
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Help/Page/Help.hs b/src/Help/Page/Help.hs
@@ -162,7 +162,8 @@ plainP = do
   spaces <- takeWhileP Nothing isSpace
   ind <- getIndent
   modify (set curPlainIndent (Just ind))
-  rest <- takeWhile1P' (/= '\n') <* optional newline
+  let takeMore = if T.null spaces then takeWhile1P else takeWhileP
+  rest <- takeMore Nothing (/= '\n') <* optional newline
   pure $ Plain (T.snoc (spaces <> rest) '\n')
 
 ------------------------------------------------------------