@@ -524,6 +524,7 @@ defaultReaderName fallback (x:xs) =
524524 ".lhs" -> "markdown+lhs"
525525 ".textile" -> "textile"
526526 ".native" -> "native"
527+ ".json" -> "json"
527528 _ -> defaultReaderName fallback xs
528529
529530-- Returns True if extension of first source is .lhs
@@ -546,6 +547,7 @@ defaultWriterName x =
546547 ".rst" -> "rst"
547548 ".s5" -> "s5"
548549 ".native" -> "native"
550+ ".json" -> "json"
549551 ".txt" -> "markdown"
550552 ".text" -> "markdown"
551553 ".md" -> "markdown"