From 338e98c8efcbdabbe00e1f9e64f409aa64f3581a Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 18 Aug 2016 15:32:31 -0400 Subject: add support for multiple storage locattions also, server upload queues in ~/.keysafe --- Storage/Network.hs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'Storage/Network.hs') diff --git a/Storage/Network.hs b/Storage/Network.hs index 06b7545..7a461c7 100644 --- a/Storage/Network.hs +++ b/Storage/Network.hs @@ -5,10 +5,13 @@ {-# LANGUAGE OverloadedStrings #-} -module Storage.Network (networkStorage) where +module Storage.Network (networkServers, networkStorage) where import Types -import Storage +import Types.Storage + +networkServers :: IO StorageLocations +networkServers = return $ StorageLocations [] -- none yet networkStorage :: Storage networkStorage = Storage -- cgit v1.2.3