servant/scripts/upload.hs
2016-04-15 19:23:23 +08:00

15 lines
301 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 --no-signature " ++ source)