085461b · obelisk · git.iko.soy

git.iko.soy/obelisk

on master help sign in

Don’t rely on root for profile output

085461bMatthew Bauer7 years ago

lib/command/src/Obelisk/Command.hs+1−3

@@ -13,7 +13,6 @@ import qualified Data.ByteString.Base16 as Base16

13import qualified Data.ByteString.Lazy as LBS

14import Data.Foldable (for_)

15import Data.List

16−import Data.Maybe

17import qualified Data.Text as T

16import qualified Data.Text as T

18import Data.Text.Encoding

17import Data.Text.Encoding

19import Data.Text.Encoding.Error (lenientDecode)

18import Data.Text.Encoding.Error (lenientDecode)

@@ -376,8 +375,7 @@ ob = \case

376 Just path -> pure path

375 Just path -> pure path

377 Nothing -> do

376 Nothing -> do

378 time <- liftIO $ getCurrentTime

377 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

381 profile basePath

379 profile basePath

382 ObCommand_Thunk tc -> case tc of

380 ObCommand_Thunk tc -> case tc of

383 ThunkCommand_Update thunks config -> for_ thunks (updateThunkToLatest config)

381 ThunkCommand_Update thunks config -> for_ thunks (updateThunkToLatest config)