From cbcb9b36c088b3dd1e07f9d0318594b78e5d38f2 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Fri, 27 Oct 2017 23:13:55 -0700 Subject: hlint suggestions. --- src/Text/Pandoc/Readers/Odt/Generic/Fallible.hs | 4 ++-- src/Text/Pandoc/Readers/Odt/Generic/Utils.hs | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) (limited to 'src/Text/Pandoc/Readers/Odt/Generic') diff --git a/src/Text/Pandoc/Readers/Odt/Generic/Fallible.hs b/src/Text/Pandoc/Readers/Odt/Generic/Fallible.hs index 72509e591..f8ea5c605 100644 --- a/src/Text/Pandoc/Readers/Odt/Generic/Fallible.hs +++ b/src/Text/Pandoc/Readers/Odt/Generic/Fallible.hs @@ -1,4 +1,4 @@ -{-# LANGUAGE GeneralizedNewtypeDeriving #-} + {- Copyright (C) 2015 Martin Linnemann @@ -121,6 +121,6 @@ newtype SuccessList a = SuccessList { collectNonFailing :: [a] } deriving ( Eq, Ord, Show ) instance ChoiceVector SuccessList where - spreadChoice = Right . SuccessList . (foldr unTagRight []) . collectNonFailing + spreadChoice = Right . SuccessList . foldr unTagRight [] . collectNonFailing where unTagRight (Right x) = (x:) unTagRight _ = id diff --git a/src/Text/Pandoc/Readers/Odt/Generic/Utils.hs b/src/Text/Pandoc/Readers/Odt/Generic/Utils.hs index f492ec944..556517259 100644 --- a/src/Text/Pandoc/Readers/Odt/Generic/Utils.hs +++ b/src/Text/Pandoc/Readers/Odt/Generic/Utils.hs @@ -1,5 +1,5 @@ -{-# LANGUAGE PatternGuards #-} -{-# LANGUAGE TupleSections #-} + + {-# LANGUAGE TypeOperators #-} {-# LANGUAGE ViewPatterns #-} -- cgit v1.2.3