Removed redundant imports (found by ghc 6.12).

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1750 788f1e2b-df1e-0410-8736-df70ead52e1b

src/Text/Pandoc/Highlighting.hs

@@ -33,7 +33,7 @@ import Text.XHtml
 import Text.Pandoc.Definition
 #ifdef _HIGHLIGHTING
 import Text.Highlighting.Kate ( languages, highlightAs, formatAsXHtml, FormatOption (..), defaultHighlightingCss, languagesByExtension )
-import Data.List (find, lookup)
+import Data.List (find)
 import Data.Maybe (fromMaybe)
 import Data.Char (toLower)
 

src/Text/Pandoc/Readers/HTML.hs

@@ -47,7 +47,7 @@ import Text.Pandoc.Definition
 import Text.Pandoc.Shared 
 import Text.Pandoc.CharacterReferences ( decodeCharacterReferences )
 import Data.Maybe ( fromMaybe )
-import Data.List ( takeWhile, dropWhile, isPrefixOf, isSuffixOf, intercalate )
+import Data.List ( isPrefixOf, isSuffixOf, intercalate )
 import Data.Char ( toLower, isAlphaNum )
 import Network.URI ( parseURIReference, URI (..) )
 

src/Text/Pandoc/Readers/Markdown.hs

@@ -31,7 +31,7 @@ module Text.Pandoc.Readers.Markdown (
                                      readMarkdown 
                                     ) where
 
-import Data.List ( transpose, isPrefixOf, isSuffixOf, lookup, sortBy, findIndex, intercalate )
+import Data.List ( transpose, isPrefixOf, isSuffixOf, sortBy, findIndex, intercalate )
 import Data.Ord ( comparing )
 import Data.Char ( isAlphaNum, isUpper )
 import Data.Maybe

src/Text/Pandoc/Shared.hs

@@ -118,7 +118,7 @@ import Data.Char ( toLower, toUpper, ord, isLower, isUpper, isAlpha,
 import Data.List ( find, isPrefixOf, intercalate )
 import Network.URI ( parseURI, URI (..), isAllowedInURI )
 import System.Directory
-import System.FilePath ( FilePath, (</>) )
+import System.FilePath ( (</>) )
 -- Note: ghc >= 6.12 (base >=4.2) supports unicode through iconv
 -- So we use System.IO.UTF8 only if we have an earlier version
 #if MIN_VERSION_base(4,2,0)

src/Text/Pandoc/Writers/ConTeXt.hs

@@ -33,7 +33,6 @@ import Text.Pandoc.Shared
 import Text.Printf ( printf )
 import Data.List ( isSuffixOf, intercalate, intersperse )
 import Control.Monad.State
-import Control.Monad (liftM)
 import Text.PrettyPrint.HughesPJ hiding ( Str )
 import Text.Pandoc.Templates ( renderTemplate )
 

src/Text/Pandoc/Writers/Docbook.hs

@@ -33,7 +33,7 @@ import Text.Pandoc.XML
 import Text.Pandoc.Shared
 import Text.Pandoc.Templates (renderTemplate)
 import Text.Pandoc.Readers.TeXMath
-import Data.List ( isPrefixOf, drop, intercalate )
+import Data.List ( isPrefixOf, intercalate )
 import Data.Char ( toLower )
 import Text.PrettyPrint.HughesPJ hiding ( Str )
 import Text.Pandoc.Highlighting (languages, languagesByExtension)

src/Text/Pandoc/Writers/LaTeX.hs

@@ -35,7 +35,6 @@ import Text.Printf ( printf )
 import Data.List ( (\\), isSuffixOf, intersperse )
 import Data.Char ( toLower )
 import Control.Monad.State
-import Control.Monad (liftM)
 import Text.PrettyPrint.HughesPJ hiding ( Str )
 
 data WriterState = 

src/Text/Pandoc/Writers/Man.hs

@@ -33,10 +33,9 @@ import Text.Pandoc.Definition
 import Text.Pandoc.Templates
 import Text.Pandoc.Shared
 import Text.Printf ( printf )
-import Data.List ( isPrefixOf, drop, intersperse, intercalate )
+import Data.List ( isPrefixOf, intersperse, intercalate )
 import Text.PrettyPrint.HughesPJ hiding ( Str )
 import Control.Monad.State
-import Control.Monad ( liftM )
 
 type Notes = [[Block]]
 data WriterState = WriterState { stNotes  :: Notes

src/Text/Pandoc/Writers/Markdown.hs

@@ -35,7 +35,7 @@ import Text.Pandoc.Templates (renderTemplate)
 import Text.Pandoc.Shared 
 import Text.Pandoc.Blocks
 import Text.ParserCombinators.Parsec ( parse, GenParser )
-import Data.List ( group, isPrefixOf, drop, find, intersperse, transpose )
+import Data.List ( group, isPrefixOf, find, intersperse, transpose )
 import Text.PrettyPrint.HughesPJ hiding ( Str )
 import Control.Monad.State
 

src/Text/Pandoc/Writers/RST.hs

@@ -34,11 +34,10 @@ import Text.Pandoc.Definition
 import Text.Pandoc.Shared 
 import Text.Pandoc.Blocks
 import Text.Pandoc.Templates (renderTemplate)
-import Data.List ( isPrefixOf, isSuffixOf, drop, intersperse, transpose )
+import Data.List ( isPrefixOf, isSuffixOf, intersperse, transpose )
 import Text.PrettyPrint.HughesPJ hiding ( Str )
 import Control.Monad.State
 import Control.Applicative ( (<$>) )
-import Control.Monad (liftM)
 
 data WriterState = 
   WriterState { stNotes     :: [[Block]]

src/pandoc.hs

@@ -32,9 +32,8 @@ module Main where
 import Text.Pandoc
 import Text.Pandoc.ODT
 import Text.Pandoc.Writers.S5 (s5HeaderIncludes)
-import Text.Pandoc.Templates (getDefaultTemplate)
 import Text.Pandoc.LaTeXMathML (latexMathMLScript)
-import Text.Pandoc.Shared ( HTMLMathMethod (..), tabFilter, ObfuscationMethod (..) )
+import Text.Pandoc.Shared ( tabFilter, ObfuscationMethod (..) )
 #ifdef _HIGHLIGHTING
 import Text.Pandoc.Highlighting ( languages )
 #endif