@@ -1,4 +1,5 @@
1{-# LANGUAGE OverloadedStrings #-}
1{-# LANGUAGE OverloadedStrings #-}
2+{-# LANGUAGE FlexibleContexts #-}
3Copyright (C) 2006-2014 John MacFarlane <jgm@berkeley.edu>
4Copyright (C) 2006-2014 John MacFarlane <jgm@berkeley.edu>
@@ -708,7 +709,7 @@ extractCaption = do
708toChunks :: String -> [String]
709toChunks :: String -> [String]
709toChunks = dropWhile null
710toChunks = dropWhile null
710 . map (trim . unlines)
711 . map (trim . unlines)
711− . splitBy (all (`elem` " \t")) . lines
712+ . splitBy (all (`elem` (" \t" :: String))) . lines
713codeblock :: Maybe String -> String -> String -> RSTParser Blocks
714codeblock :: Maybe String -> String -> String -> RSTParser Blocks
714codeblock numberLines lang body =
715codeblock numberLines lang body =