amoerie

public class DateTime implements Cloneable, Comparable<DateTime>,Parcelable {
    public static DateTime today() { return now().withTimeAtStartOfDay(); }
    public static DateTime now() { return new DateTime(Calendar.getInstance()); }

    private final Calendar calendar;

    @Override
    public int compareTo(@NonNull DateTime another) {
        return calendar.compareTo(another.calendar);
    }

dmjio

#!/usr/bin/env runhaskell

import Control.Concurrent hiding (readMVar)
import Control.Concurrent.STM
import Control.Monad
import System.IO
import Data.IORef
import System.Environment (getArgs)
import System.Random