diff --git a/src/Utils.hs b/src/Utils.hs index e472e72ca..7bef82270 100644 --- a/src/Utils.hs +++ b/src/Utils.hs @@ -27,6 +27,7 @@ import Utils.PathPiece as Utils import Text.Blaze (Markup, ToMarkup) +import Control.Lens import Data.Set (Set) import qualified Data.Set as Set import Data.Map (Map) @@ -174,6 +175,15 @@ trd3 (_,_,z) = z -- notNull = not . null +lastMaybe :: [a] -> Maybe a +lastMaybe [] = Nothing +lastMaybe [h] = Just h +lastMaybe (_:t) = lastMaybe t + +lastMaybe' :: [a] -> Maybe a +lastMaybe' l = fmap snd $ l ^? _Snoc + + mergeAttrs :: [(Text, Text)] -> [(Text, Text)] -> [(Text, Text)] mergeAttrs = mergeAttrs' `on` sort where diff --git a/templates/default-layout.hamlet b/templates/default-layout.hamlet index 87827d44f..4d4b024ac 100644 --- a/templates/default-layout.hamlet +++ b/templates/default-layout.hamlet @@ -15,6 +15,8 @@