@@ -524,6 +524,7 @@ defaultReaderName fallback (x:xs) =
524 ".lhs" -> "markdown+lhs"
524 ".lhs" -> "markdown+lhs"
525 ".textile" -> "textile"
525 ".textile" -> "textile"
526 ".native" -> "native"
526 ".native" -> "native"
527 _ -> defaultReaderName fallback xs
528 _ -> defaultReaderName fallback xs
529-- Returns True if extension of first source is .lhs
530-- Returns True if extension of first source is .lhs
@@ -546,6 +547,7 @@ defaultWriterName x =
546 ".rst" -> "rst"
547 ".rst" -> "rst"
547 ".s5" -> "s5"
548 ".s5" -> "s5"
548 ".native" -> "native"
549 ".native" -> "native"
549 ".txt" -> "markdown"
551 ".txt" -> "markdown"
550 ".text" -> "markdown"
552 ".text" -> "markdown"
551 ".md" -> "markdown"
553 ".md" -> "markdown"