More explicit imports.
commitb6c81987965f83962217e3b1abdfe36d3a53a812
authorJasper Van der Jeugt <jaspervdj@gmail.com>
dateSun 27 Dec 2009, 18:45 (17 years ago)
parent14f86ba
src/Network/Hakyll/SimpleServer.hs+1−1
@@ -170,7 +170,7 @@ simpleServer port = do
170170 , portNumber = port
171171 }
172172
173− -- When a clien connects, respond in a separate thread.
173+ -- When a client connects, respond in a separate thread.
174174 listen socket = do (handle, _, _) <- accept socket
175175 forkIO (runReaderT (respond handle) config)
176176 return ()
src/Text/Hakyll/CompressCSS.hs+2−2
@@ -2,8 +2,8 @@ module Text.Hakyll.CompressCSS
22 ( compressCSS
33 ) where
44
5−import Data.List
6−import Text.Regex
5+import Data.List (isPrefixOf)
6+import Text.Regex (subRegex, mkRegex)
77
88-- | subRegex with arguments flipped for easy function composition.
99subRegex' :: String -> String -> String -> String
src/Text/Hakyll/File.hs+7−7
@@ -1,13 +1,13 @@
11-- | A module containing various function for manipulating and examinating
22-- files and directories.
33module Text.Hakyll.File
4− ( toDestination,
5− toCache,
6− toURL,
7− makeDirectories,
8− getRecursiveContents,
9− isCacheValid,
10− directory
4+ ( toDestination
5+ , toCache
6+ , toURL
7+ , makeDirectories
8+ , getRecursiveContents
9+ , isCacheValid
10+ , directory
1111 ) where
1212
1313import System.Directory
src/Text/Hakyll/Page.hs+7−7
@@ -1,11 +1,11 @@
11module Text.Hakyll.Page
2− ( Page,
3− fromContext,
4− getValue,
5− copyValueWith,
6− getBody,
7− readPage,
8− writePage
2+ ( Page
3+ , fromContext
4+ , getValue
5+ , copyValueWith
6+ , getBody
7+ , readPage
8+ , writePage
99 ) where
1010
1111import qualified Data.Map as M
src/Text/Hakyll/Render.hs+8−8
@@ -1,18 +1,18 @@
11module Text.Hakyll.Render
2− ( depends,
3− render,
4− renderAndConcat,
5− renderChain,
6− static,
7− css
2+ ( depends
3+ , render
4+ , renderAndConcat
5+ , renderChain
6+ , static
7+ , css
88 ) where
99
1010import Text.Template hiding (render)
1111import qualified Data.ByteString.Lazy.Char8 as B
1212import qualified Data.Map as M
13−import Control.Monad
13+import Control.Monad (unless, liftM, foldM)
1414
15−import System.Directory
15+import System.Directory (copyFile)
1616import System.IO
1717
1818import Text.Hakyll.Page
src/Text/Hakyll/Renderable.hs+2−2
@@ -2,8 +2,8 @@ module Text.Hakyll.Renderable
22 ( Renderable(toContext, getDependencies, getURL)
33 ) where
44
5−import System.FilePath
6−import Text.Template
5+import System.FilePath (FilePath)
6+import Text.Template (Context)
77
88-- | A class for datatypes that can be rendered to pages.
99class Renderable a where
src/Text/Hakyll/Renderables.hs+5−6
@@ -1,14 +1,13 @@
11module Text.Hakyll.Renderables
2− ( CustomPage,
3− createCustomPage,
4− PagePath,
5− createPagePath
2+ ( CustomPage
3+ , createCustomPage
4+ , PagePath
5+ , createPagePath
66 ) where
77
8−import System.FilePath
8+import System.FilePath (FilePath)
99import qualified Data.ByteString.Lazy.Char8 as B
1010import qualified Data.Map as M
11−import Control.Monad
1211import Text.Hakyll.Page
1312import Text.Hakyll.Renderable
1413import Text.Hakyll.File
src/Text/Hakyll/Tags.hs+2−2
@@ -7,11 +7,11 @@ module Text.Hakyll.Tags
77import qualified Data.Map as M
88import qualified Data.ByteString.Lazy.Char8 as B
99import qualified Data.List as L
10−import Control.Monad
10+import Control.Monad (foldM)
1111
1212import Text.Hakyll.Util
1313import Text.Hakyll.Page
14−import Control.Arrow
14+import Control.Arrow (second)
1515
1616-- | Read a tag map. This creates a map from tags to page paths. This function
1717-- assumes the tags are located in the `tags` metadata field, separated by
src/Text/Hakyll/Util.hs+5−6
@@ -1,12 +1,11 @@
11module Text.Hakyll.Util
2− ( trim,
3− split,
4− stripHTML
2+ ( trim
3+ , split
4+ , stripHTML
55 ) where
66
7−import Data.Char
8−import Data.List
9−import Text.Regex
7+import Data.Char (isSpace)
8+import Text.Regex (splitRegex, mkRegex)
109
1110-- | Trim a string (drop spaces and tabs at both sides).
1211trim :: String -> String