megastore 0.1.0.0 → 0.1.1.1

raw patch · 3 files changed

+17/−13 lines, 3 filesdep ~ghc

Dependency ranges changed: ghc

Files

• README.md +1/−1
• megastore.cabal +3/−3
• src/MegaStore.hs +13/−9

@@ -1,3 +1,3 @@ # MegaStore
 A Haskell Filetype and Data Structure for super 
-efficient storage of big image sets as one file+efficient storage of big image sets as one file

@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack  name:           megastore-version:        0.1.0.0+version:        0.1.1.1 synopsis:       Bulk image or strict bytestring storage description:    Please see the README on GitHub at <https://github.com/MilesLitteral/megastore/tree/release#readme> category:       Data Structures, Data, Image@@ -41,7 +41,7 @@     , bytestring >0.10.0.0 && <=0.11.4.0     , containers >=0.6.4.1 && <=0.6.7     , directory >1.3.0.0 && <=1.3.8.0-    , ghc >=9.0.2 && <=9.4.2+    , ghc >9.4.3 && <=9.4.4     , hashable >1.2.3.0 && <=1.4.2.0     , lens >5 && <=5.2     , mtl >2.2 && <=2.2.2@@ -67,7 +67,7 @@     , bytestring >0.10.0.0 && <=0.11.4.0     , containers >=0.6.4.1 && <=0.6.7     , directory >1.3.0.0 && <=1.3.8.0-    , ghc >=9.0.2 && <=9.4.2+    , ghc >9.4.3 && <=9.4.4     , hashable >1.2.3.0 && <=1.4.2.0     , lens >5 && <=5.2     , megastore

@@ -13,19 +13,23 @@ that will efficiently store all images. Here is a quick crash course:
 
     @
-        a1  <- loadFile "s1.png"
-        a2  <- loadFile "s2.png"
-        a3  <- loadFile "s3.png"
-
-        let testSet = KeyStore [("s1", a1), ("s2", a2), ("s3", a3)]
-        saveStore "./test/testSet" testSet
+        a1  <- loadFile "./assets/s1.png"
+        a2  <- loadFile "./assets/s2.png"
+        a3  <- loadFile "./assets/s3.png"
 
-        loadedContents <- loadStore "./test/testSet.keystore"
-        autoUnpack "./results" loadedContents
+        let testSet = MegaStore [(pack "s1", a1), (pack "s2", a2), (pack "s3", a3)]
+        createDirectoryIfMissing False "./test"
+        saveStore "./test/testSet" testSet -- keystore of images
+        print "Loading MegaStore testSet"
+        loadedContents <- loadStore "./test/testSet.megastore"
+        print "autoUnpack into ./test"
+        autoUnpack "./test" loadedContents
+        print "autoUnpack complete check folder"
     @
 -}
 module MegaStore
-    (  -- * Data Types #Data Type#
+    (  
+    -- * Data Types        #Data Type#
     MegaStore(..)
     -- * I/O Functions     #Functions#
     , saveStore