@@ -13,7 +13,6 @@ import qualified Data.ByteString.Base16 as Base16
1313import qualified Data.ByteString.Lazy as LBS
1414import Data.Foldable (for_)
1515import Data.List
16−import Data.Maybe
1716import qualified Data.Text as T
1817import Data.Text.Encoding
1918import Data.Text.Encoding.Error (lenientDecode)
@@ -376,8 +375,7 @@ ob = \case
376375 Just path -> pure path
377376 Nothing -> do
378377 time <- liftIO $ getCurrentTime
379− root <- findProjectRoot "."
380− pure $ (fromMaybe "" root) </> "profile" </> formatTime defaultTimeLocale "%Y-%m-%dT%H:%M:%S" time
378+ pure $ "profile" </> formatTime defaultTimeLocale "%Y-%m-%dT%H:%M:%S" time
381379 profile basePath
382380 ObCommand_Thunk tc -> case tc of
383381 ThunkCommand_Update thunks config -> for_ thunks (updateThunkToLatest config)