1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
--- MissingH-1.3.0.1-orig/src/Data/BinPacking.hs 2014-10-28 23:46:24.000000000 +1100
+++ MissingH-1.3.0.1/src/Data/BinPacking.hs 2016-04-20 10:23:16.403505044 +1000
@@ -69,7 +69,7 @@
> [(size, obj)] is the sizes and objects
> result is Either error or results
-}
-type BinPacker = (Num size, Ord size, Show size, Show obj) =>
+type BinPacker = forall size obj . (Num size, Ord size, Show size, Show obj) =>
[size] -- The sizes of bins
-> [(size, obj)] -- The sizes and objects
-> Either (BinPackerError size obj) [[(size, obj)]] -- Either error or results
--- MissingH-1.3.0.1-orig/src/System/IO/HVFS.hs 2014-10-28 23:46:24.000000000 +1100
+++ MissingH-1.3.0.1/src/System/IO/HVFS.hs 2016-04-24 18:50:36.893741944 +1000
@@ -60,7 +60,10 @@
import System.IO.PlafCompat
import System.Posix.Types
import System.Time
-import System.Directory
+import System.Directory (createDirectory, doesDirectoryExist, doesFileExist,
+ getCurrentDirectory, getDirectoryContents, getModificationTime,
+ removeDirectory, removeFile, renameDirectory,
+ renameFile, setCurrentDirectory)
#if MIN_VERSION_directory(1,2,0)
import Data.Time.Clock.POSIX ( utcTimeToPOSIXSeconds )
|
GitWeb
