From ff60b350e01f171daa5afb6689f5eb4dd99d106b Mon Sep 17 00:00:00 2001
From: Sridhar Ratnakumar <srid@srid.ca>
Date: Mon, 25 Nov 2019 22:19:32 -0500
Subject: [PATCH] Add ipynb

---
 src/Rib/Markup/Pandoc.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/Rib/Markup/Pandoc.hs b/src/Rib/Markup/Pandoc.hs
index e6a70b8..33f09b0 100644
--- a/src/Rib/Markup/Pandoc.hs
+++ b/src/Rib/Markup/Pandoc.hs
@@ -178,14 +178,15 @@ detectReader f = do
   liftEither $ maybeToRight (UnknownExtension ext) $
     formats !? ext
   where
-    -- TODO: This should compute using `Text.Pandoc.Readers.readers`
     formats :: Map String (ReaderOptions -> Text -> m1 Pandoc)
     formats =
+      -- TODO: Expand this list, cf. `Text.Pandoc.Readers.readers`
       fromList
         [ (".md", readMarkdown),
           (".rst", readRST),
           (".org", readOrg),
-          (".tex", readLaTeX)
+          (".tex", readLaTeX),
+          (".ipynb", readIpynb)
         ]
     -- Re-constrain code constrained by MonadThrow to be constrained by
     -- MonadError instead.