diff options
Diffstat (limited to 'src/Hakyll/Web/Page.hs')
-rw-r--r-- | src/Hakyll/Web/Page.hs | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/src/Hakyll/Web/Page.hs b/src/Hakyll/Web/Page.hs index 1450702..bcc3aba 100644 --- a/src/Hakyll/Web/Page.hs +++ b/src/Hakyll/Web/Page.hs @@ -56,7 +56,6 @@ module Hakyll.Web.Page , pageCompilerWith , pageCompilerWithPandoc , addDefaultFields - , sortByBaseName ) where import Prelude hiding (id) @@ -64,8 +63,6 @@ import Control.Category (id) import Control.Arrow (arr, (>>^), (&&&), (>>>)) import System.FilePath (takeBaseName, takeDirectory) import qualified Data.Map as M -import Data.List (sortBy) -import Data.Ord (comparing) import Text.Pandoc (Pandoc, ParserState, WriterOptions) @@ -137,10 +134,3 @@ addDefaultFields = (getRoute &&& id >>^ uncurry addRoute) . trySetField "path" p where p = toFilePath i - --- | Sort posts based on the basename of the post. This is equivalent to a --- chronologival sort, because of the @year-month-day-title.extension@ naming --- convention in Hakyll. --- -sortByBaseName :: [Page a] -> [Page a] -sortByBaseName = sortBy $ comparing $ takeBaseName . getField "path" |