@@ -66,18 +66,19 @@ toImplDir p = toObeliskDir p </> "impl"
6666initProject :: MonadObelisk m => InitSource -> m ()
6767initProject source = do
6868 let implDir = toImplDir "."
69− liftIO $ createDirectory $ toObeliskDir "."
70− case source of
71− InitSource_Default -> liftIO $ createThunkWithLatest implDir obeliskSource
72− InitSource_Branch branch -> liftIO $ createThunkWithLatest implDir $ obeliskSourceWithBranch branch
73− InitSource_Symlink path -> do
74− let symlinkPath = if isAbsolute path
75− then path
76− else ".." </> path
77− liftIO $ createSymbolicLink symlinkPath implDir
78− _ <- nixBuildAttrWithCache implDir "command"
79− --TODO: We should probably handoff to the impl here
80− skeleton <- nixBuildAttrWithCache implDir "skeleton" --TODO: I don't think there's actually any reason to cache this
69+ skeleton <- withSpinner "Setting up obelisk" $ do
70+ liftIO $ createDirectory $ toObeliskDir "."
71+ case source of
72+ InitSource_Default -> liftIO $ createThunkWithLatest implDir obeliskSource
73+ InitSource_Branch branch -> liftIO $ createThunkWithLatest implDir $ obeliskSourceWithBranch branch
74+ InitSource_Symlink path -> do
75+ let symlinkPath = if isAbsolute path
76+ then path
77+ else ".." </> path
78+ liftIO $ createSymbolicLink symlinkPath implDir
79+ _ <- nixBuildAttrWithCache implDir "command"
80+ --TODO: We should probably handoff to the impl here
81+ nixBuildAttrWithCache implDir "skeleton" --TODO: I don't think there's actually any reason to cache this
8182 withSpinner "Copying project skeleton" $ do
8283 callProcessAndLogOutput (Notice, Error) $
8384 cp --TODO: Make this package depend on nix-prefetch-url properly