From 24f027fe8d46c56c02b52254c331e220ebdd88b5 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Fri, 3 Mar 2017 13:43:17 +0400
Subject: ConTeXt writer: remove unnecessary $ (#3482)

---
 src/Text/Pandoc/Writers/ConTeXt.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Text/Pandoc/Writers/ConTeXt.hs')

diff --git a/src/Text/Pandoc/Writers/ConTeXt.hs b/src/Text/Pandoc/Writers/ConTeXt.hs
index ea8b90db3..ea178db92 100644
--- a/src/Text/Pandoc/Writers/ConTeXt.hs
+++ b/src/Text/Pandoc/Writers/ConTeXt.hs
@@ -202,9 +202,9 @@ blockToConTeXt (BulletList lst) = do
 blockToConTeXt (OrderedList (start, style', delim) lst) = do
     st <- get
     let level = stOrderedListLevel st
-    put $ st {stOrderedListLevel = level + 1}
+    put st {stOrderedListLevel = level + 1}
     contents <- mapM listItemToConTeXt lst
-    put $ st {stOrderedListLevel = level}
+    put st {stOrderedListLevel = level}
     let start' = if start == 1 then "" else "start=" ++ show start
     let delim' = case delim of
                         DefaultDelim -> ""
-- 
cgit v1.2.3