Main.mad

import { DateTime, toISOString } from "Date"
import Dict from "Dictionary"
import { noop } from "Function"
import IO from "IO"
import List from "List"
import Math from "Math"
import { fromMaybe } from "Maybe"
import Wish from "Wish"

import Jam from "Jam"

import Date from "@/Date"
import D from "@/Diurnal"
import Task from "@/Task"



main = () => {
  pipe(
    Jam.ensure($, ""),
    map(IO.pTrace("ensured!")),
    map(
      pipe(
        Jam.value,
        D.parse,
        D.aggregateTopics,
      ),
    ),
    /*
                    map(
                      pipe(
                        Dict.get("running"),
                        IO.pTrace("running?"),
                        fromMaybe([]),
                        map(where { #[d, _] => d }),
                        Date.bounds,
                        where {
                          #[least, most] =>
                            #[Date.toDate(least), Date.toDate(most)]
                        },
                      ),
                    ),
                    */
    map(Task.summarizeByTopic),
    Wish.fulfill(
      pipe(
        IO.pTrace("BARF!"),
        noop,
      ),
      pipe(
        // IO.pTrace("READ!"),
        IO.put,
        noop,
      ),
    ),
  )("./dayfile.csv")
}