servant/scripts/upload.hs
2016-03-19 18:33:48 +08:00

15 lines
286 B
Haskell
Executable File

#!/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)