git.iko.soy/elk
on master help sign in
add File.zeroTime for a dummy time value
cc45728Evan Czaplicki
builder/src/File.hs+6
compare with master
unifiedsplit
@@ -1,6 +1,7 @@
1module File
1module File
2 ( Time
2 ( Time
3 , getTime
3 , getTime
4+ , zeroTime
4 , writeBinary
5 , writeBinary
5 , readBinary
6 , readBinary
6 , writeUtf8
7 , writeUtf8
@@ -49,6 +50,11 @@ getTime path =
49 (Dir.getModificationTime path)
50 (Dir.getModificationTime path)
50
51
51
52
53+zeroTime :: Time
54+zeroTime =
55+ Time 0
56+
57+
52instance Binary.Binary Time where
58instance Binary.Binary Time where
53 put (Time time) = Binary.put time
59 put (Time time) = Binary.put time
54 get = Time <$> Binary.get
60 get = Time <$> Binary.get