diff --git a/src/main.cr b/src/main.cr
index 9d791f1..bebf2be 100644
--- a/src/main.cr
+++ b/src/main.cr
@@ -51,6 +51,7 @@ show_projects =     [] of String
 show_environments = [] of String
 show_revisions =    [] of String
 show_as_summary = true
+storage_directory = "storage"
 
 OptionParser.parse! do |parser|
 	parser.banner = "usage: tap-aggregator <command> [options]"
@@ -72,6 +73,10 @@ OptionParser.parse! do |parser|
 		show_revisions << id
 	end
 
+	parser.on("-s storage", "--storage storage", "Default: storage") do |storage|
+		storage_directory = storage
+	end
+
 	parser.on("-v", "--verbose", "Prints all data instead of just summaries.") do
 		show_as_summary = false
 	end
@@ -94,7 +99,7 @@ end
 
 command = args[0]
 
-storage = Storage.new
+storage = Storage.new storage_directory
 
 enum Tap::Entry::Status
 	def to_s