From a740de05086960eb6d926f68acd43fedb4599f6c Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Thu, 9 Aug 2012 08:11:28 -0700
Subject: Use safeRead instead of using reads directly (various modules).

---
 src/Text/Pandoc/Readers/Native.hs | 31 ++++++++++++++++---------------
 1 file changed, 16 insertions(+), 15 deletions(-)

(limited to 'src/Text/Pandoc/Readers/Native.hs')

diff --git a/src/Text/Pandoc/Readers/Native.hs b/src/Text/Pandoc/Readers/Native.hs
index 410c44a37..a0e5a0635 100644
--- a/src/Text/Pandoc/Readers/Native.hs
+++ b/src/Text/Pandoc/Readers/Native.hs
@@ -31,6 +31,7 @@ Conversion of a string representation of a pandoc type (@Pandoc@,
 module Text.Pandoc.Readers.Native ( readNative ) where
 
 import Text.Pandoc.Definition
+import Text.Pandoc.Shared (safeRead)
 
 nullMeta :: Meta
 nullMeta = Meta{ docTitle = []
@@ -51,31 +52,31 @@ nullMeta = Meta{ docTitle = []
 readNative :: String      -- ^ String to parse (assuming @'\n'@ line endings)
            -> Pandoc
 readNative s =
-  case reads s of
-       (d,_):_    -> d
-       []         -> Pandoc nullMeta $ readBlocks s
+  case safeRead s of
+       Just d    -> d
+       Nothing   -> Pandoc nullMeta $ readBlocks s
 
 readBlocks :: String -> [Block]
 readBlocks s =
-  case reads s of
-       (d,_):_    -> d
-       []         -> [readBlock s]
+  case safeRead s of
+       Just d    -> d
+       Nothing   -> [readBlock s]
 
 readBlock :: String -> Block
 readBlock s =
-  case reads s of
-       (d,_):_    -> d
-       []         -> Plain $ readInlines s
+  case safeRead s of
+       Just d    -> d
+       Nothing   -> Plain $ readInlines s
 
 readInlines :: String -> [Inline]
 readInlines s =
-  case reads s of
-       (d,_):_    -> d
-       []         -> [readInline s]
+  case safeRead s of
+       Just d     -> d
+       Nothing    -> [readInline s]
 
 readInline :: String -> Inline
 readInline s =
-  case reads s of
-       (d,_):_    -> d
-       []         -> error "Cannot parse document"
+  case safeRead s of
+       Just d     -> d
+       Nothing    -> error "Cannot parse document"
 
-- 
cgit v1.2.3