git.iko.soy/obelisk
on master help sign in
remove ob thunk set
commitdfd02bce9e9fdc7ac60bef20f5eb1bd877e5e568 authorhsloan <ishaqsloan@gmail.com> dateThu 29 Nov 2018, 20:59 (8 years ago) parent63c7b21
2 files changed−11
compare with master
unifiedsplit
lib/command/src/Obelisk/Command.hs−3 lib/selftest/src/Obelisk/SelfTest.hs−8
lib/command/src/Obelisk/Command.hs−3
@@ -214,7 +214,6 @@ data ThunkCommand
214214 = ThunkCommand_Update [FilePath] (Maybe String)
215215 | ThunkCommand_Unpack [FilePath]
216216 | ThunkCommand_Pack [FilePath]
217− | ThunkCommand_Set [FilePath] String
218217 deriving Show
219218
220219thunkCommand :: Parser ThunkCommand
@@ -222,7 +221,6 @@ thunkCommand = hsubparser $ mconcat
222221 [ command "update" $ info (ThunkCommand_Update <$> some thunkDirectoryParser <*> optional (strOption (long "branch" <> metavar "BRANCH"))) $ progDesc "Update thunk to latest revision available"
223222 , command "unpack" $ info (ThunkCommand_Unpack <$> some thunkDirectoryParser) $ progDesc "Unpack thunk into git checkout of revision it points to"
224223 , command "pack" $ info (ThunkCommand_Pack <$> some thunkDirectoryParser) $ progDesc "Pack git checkout into thunk that points at the current branch's upstream"
225− , command "set" $ info (ThunkCommand_Set <$> some thunkDirectoryParser <*> strOption (long "branch" <> metavar "BRANCH")) $ progDesc "Set upstream branch of thunk"
226224 ]
227225
228226parserPrefs :: ParserPrefs
@@ -351,7 +349,6 @@ ob = \case
351349 ThunkCommand_Update thunks mBranch -> mapM_ ((flip updateThunkToLatest) mBranch) thunks
352350 ThunkCommand_Unpack thunks -> mapM_ unpackThunk thunks
353351 ThunkCommand_Pack thunks -> forM_ thunks packThunk
354− ThunkCommand_Set thunks branch -> mapM_ (setThunk branch) thunks
355352 ObCommand_Repl -> runRepl
356353 ObCommand_Watch -> inNixShell' $ static runWatch
357354 ObCommand_Internal icmd -> case icmd of
lib/selftest/src/Obelisk/SelfTest.hs−8
@@ -213,14 +213,6 @@ main = do
213213 void $ unpack
214214 testThunkPack (dir </> thunk)
215215
216− describe "ob thunk set" $ parallel $ do
217− let branch = "develop"
218− it "can set a packed thunk to another packed thunk" $ withTmp $ \dir -> do
219− run_ "git" ["clone", "https://github.com/reflex-frp/reflex.git", toTextIgnore dir, "--branch", "cg-quickref"]
220− run_ "ob" ["thunk", "pack", toTextIgnore dir]
221− run_ "ob" ["thunk", "set", toTextIgnore dir, "--branch", branch]
222−
223−
224216-- | Run `ob run` in the given directory (maximum of one level deep)
225217testObRunInDir :: Socket.PortNumber -> Socket.PortNumber -> Maybe Shelly.FilePath -> HTTP.Manager -> Sh ()
226218testObRunInDir p0 p1 mdir httpManager = handle_sh (\case ExitSuccess -> pure (); e -> throw e) $ do