From 8ed749702ff62bc41a88770c7f93a283a20a2a42 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 4 Jan 2020 09:55:15 -0800
Subject: Add type annotations to assist ghci.

---
 src/Text/Pandoc/Lua/Marshaling/ReaderOptions.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/Text/Pandoc/Lua/Marshaling/ReaderOptions.hs')

diff --git a/src/Text/Pandoc/Lua/Marshaling/ReaderOptions.hs b/src/Text/Pandoc/Lua/Marshaling/ReaderOptions.hs
index 226fe2e71..e8860c92c 100644
--- a/src/Text/Pandoc/Lua/Marshaling/ReaderOptions.hs
+++ b/src/Text/Pandoc/Lua/Marshaling/ReaderOptions.hs
@@ -1,6 +1,7 @@
 {-# LANGUAGE NoImplicitPrelude    #-}
 {-# LANGUAGE FlexibleInstances    #-}
 {-# LANGUAGE ScopedTypeVariables  #-}
+{-# LANGUAGE OverloadedStrings    #-}
 {-# LANGUAGE LambdaCase           #-}
 {-# OPTIONS_GHC -fno-warn-orphans #-}
 {- |
@@ -67,7 +68,8 @@ instance Pushable ReaderOptions where
         indexReaderOptions _tbl (AnyValue key) = do
           Lua.ltype key >>= \case
             Lua.TypeString -> Lua.peek key >>= \case
-              "defaultImageExtension" -> Lua.push defaultImageExtension
+              ("defaultImageExtension" :: Text.Text)
+                                    -> Lua.push defaultImageExtension
               "indentedCodeClasses" -> Lua.push indentedCodeClasses
               "stripComments" -> Lua.push stripComments
               "tabStop" -> Lua.push tabStop
-- 
cgit v1.2.3