rewrite upload script

Author: soenkehahn

scripts/upload.hs

@@ -0,0 +1,14 @@
+#!/usr/bin/env stack
+{- stack
+--resolver lts-3.10
+--install-ghc runghc
+-}
+
+import           Data.Foldable
+import           System.Process
+
+main :: IO ()
+main = do
+  sources <- words <$> readFile "sources.txt"
+  forM_ sources $ \ source -> do
+    callCommand ("stack upload " ++ source)