diff options
Diffstat (limited to 'web/site.hs')
| -rw-r--r-- | web/site.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/web/site.hs b/web/site.hs index 2fca8e0..0f99af2 100644 --- a/web/site.hs +++ b/web/site.hs @@ -3,6 +3,7 @@ import Control.Applicative ((<$>)) import Control.Arrow (second) import Control.Monad (forM_) +import Data.Char (isDigit) import Data.List (isPrefixOf, partition) import Data.Monoid (mappend) import Hakyll @@ -111,4 +112,7 @@ hackage url -------------------------------------------------------------------------------- -- | Partition tutorials into tutorial series & other articles partitionTutorials :: [Item a] -> ([Item a], [Item a]) -partitionTutorials = partition $ matches (fromRegex "\\d*-.*") . itemIdentifier +partitionTutorials = partition $ \i -> + case splitPath (toFilePath $ itemIdentifier i) of + [_, (x : _)] -> isDigit x + _ -> False |