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