EntriesByDate.elm

module This exposing (..)

import Date
import Dict


type alias Entry =
    { date : Date.Date
    , text : String
    }


groupByDate : List Entry -> List ( Date.Date, List Entry )
groupByDate entries =
    groupByDate_ entries Dict.empty


-- groupByDate_ : List Entry -> Dict.Dict Date.Date List Entry -> List ( Date.Date, List Entry )
-- ^ does not compile
-- groupByDate_ : List Entry -> Dict.Dict comparable v -> List ( Date.Date, List Entry )
-- ^ does not compile either
groupByDate_ entries result =
    Dict.toList result