servant/scripts/upload.hs

15 lines
286 B
Haskell
Raw Normal View History

2016-03-19 11:12:05 +01:00
#!/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)