@@ -853,7 +853,7 @@ getLatestRev os = do
853853uriThunkPtr :: MonadObelisk m => GitUri -> Maybe Text -> Maybe Text -> m ThunkPtr
854854uriThunkPtr uri mbranch mcommit = do
855855 commit <- case mcommit of
856− Nothing -> gitGetCommitBranch uri mbranch >>= return . snd -- return . (\(_, y, _)->y) --perhaps do io here instead of making uriToTHunkSource effectful ?
856+ Nothing -> gitGetCommitBranch uri mbranch >>= return . snd
857857 (Just c) -> return c
858858 (src, rev) <- uriToThunkSource uri mbranch >>= \case
859859 ThunkSource_GitHub s -> do