rhi/gallery
1
0
Fork 0
Code Issues 5 Pull requests 1 Releases Wiki Activity

improve sorting

Browse source
This commit is contained in:
Rhiannon Morris 2020-07-19 17:55:54 +02:00
parent cacce9d29b
commit 2d1a74ecb5
2 changed files with 14 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

4
make-pages/Info.hs
View file

@ -15,6 +15,7 @@ import Control.Applicative
import Data.Foldable (find)
import qualified Data.Map.Strict as Map
import Data.Maybe (isJust, isNothing)
import Data.Ord (comparing)
import Data.String (IsString)
import Data.Text (Text)
import qualified Data.Text as Text
@ -87,6 +88,9 @@ instance HasField "year" Info Integer where getField = #first . #dmy
instance HasField "month" Info Int where getField = #second . #dmy
instance HasField "day" Info Int where getField = #third . #dmy
instance Ord Info where
compare = comparing \Info {date, title} -> (date, title)
instance FromYAML Info where
parseYAML = YAML.withMap "info" \m ->