Verified Commit e5467e20 authored by Camil Staps's avatar Camil Staps 🚀

cleanup

parent 9146a5ae
...@@ -16,7 +16,6 @@ import System.FilePath ...@@ -16,7 +16,6 @@ import System.FilePath
import System.File import System.File
import System.Time import System.Time
import Data.Tuple import Data.Tuple
import GenLexOrd
CACHE_DIR :== "./cache" CACHE_DIR :== "./cache"
CACHE_SIZE :== 100 CACHE_SIZE :== 100
...@@ -50,4 +49,4 @@ where ...@@ -50,4 +49,4 @@ where
instance < Tm instance < Tm
where where
(<) a b = LT === ([a.year,a.yday,a.hour,a.min,a.sec] =?= [b.year,b.yday,b.hour,b.min,b.sec]) (<) a b = [a.year,a.yday,a.hour,a.min,a.sec] < [b.year,b.yday,b.hour,b.min,b.sec]
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment