@@ -402,7 +402,7 @@ updateThunkToLatest target mBranch = withSpinner' ("Updating thunk " <> T.pack t
402402 ThunkSource_GitHub tsgh -> do
403403 let tsg = forgetGithub False tsgh
404404 setThunk target tsg branch
405− ThunkData_Checkout _ -> failWith $ T.pack $ "thunk located at " <> (show target) <> " is unpacked. Use ob thunk pack on the desired directory and then try ob thunk update again."
405+ ThunkData_Checkout _ -> failWith $ T.pack $ "thunk located at " <> show target <> " is unpacked. Use ob thunk pack on the desired directory and then try ob thunk update again."
406406
407407setThunk :: MonadObelisk m => FilePath -> GitSource -> String -> m ()
408408setThunk target gs branch = do
@@ -570,7 +570,7 @@ updateThunk p f = withSystemTempDirectory "obelisk-thunkptr-" $ \tmpDir -> do
570570 callProcessAndLogOutput (Notice, Error) $
571571 proc "cp" ["-r", "-T", thunkDir, tmpThunk]
572572 return tmpThunk
573− Right _ -> failWith $ "Thunk is not packed"
573+ Right _ -> failWith "Thunk is not packed"
574574 updateThunkFromTmp p' = do
575575 _ <- packThunk' True False p'
576576 callProcessAndLogOutput (Notice, Error) $
@@ -639,7 +639,7 @@ packThunk' noTrail force thunkDir = checkThunkDirectory "Can't pack/unpack from
639639
640640getThunkPtr :: forall m. MonadObelisk m => Bool -> FilePath -> m ThunkPtr
641641getThunkPtr checkClean thunkDir = do
642− when checkClean $ ensureCleanGitRepo thunkDir True $
642+ when checkClean $ ensureCleanGitRepo thunkDir True
643643 "thunk pack: thunk checkout contains unsaved modifications"
644644
645645 -- Check whether there are any stashes
@@ -733,7 +733,7 @@ getThunkPtr checkClean thunkDir = do
733733 [ "thunk pack: Certain branches in the thunk have commits not yet pushed upstream:"
734734 , ""
735735 ] ++
736− (flip map (Map.toList nonGood) $ \(branch, (upstream, (ahead, behind))) -> mconcat
736+ flip map (Map.toList nonGood) (\(branch, (upstream, (ahead, behind))) -> mconcat
737737 [" ", branch, " ahead: ", T.pack (show ahead), " behind: ", T.pack (show behind), " remote branch ", upstream]) ++
738738 [ ""
739739 , "Please push these upstream and try again. (Or just fetch, if they are somehow \
@@ -741,7 +741,7 @@ getThunkPtr checkClean thunkDir = do
741741 ]
742742
743743 -- We assume it's safe to pack the thunk at this point
744− putLog Informational $ "All changes safe in git remotes. OK to pack thunk."
744+ putLog Informational "All changes safe in git remotes. OK to pack thunk."
745745
746746 let remote = maybe "origin" snd $ flip Map.lookup headUpstream =<< mCurrentBranch
747747
@@ -784,7 +784,7 @@ uriThunkPtr uri mbranch mcommit = do
784784 case rev of
785785 Right r -> pure (ThunkSource_GitHub s, r)
786786 Left e -> do
787− putLog Warning $ "\
787+ putLog Warning "\
788788\Failed to fetch archive from GitHub. This is probably a private repo. \
789789\Falling back on normal fetchgit. Original failure:"
790790 errorToWarning e
@@ -818,9 +818,7 @@ uriToThunkSource u
818818 { _gitHubSource_owner = N $ unRText owner
819819 , _gitHubSource_repo = N $ let
820820 repoish' = unRText repoish
821− in case T.stripSuffix ".git" repoish' of
822− Just repo -> repo
823− Nothing -> repoish'
821+ in fromMaybe repoish' $ T.stripSuffix ".git" repoish'
824822 , _gitHubSource_branch = N <$> mbranch
825823 }
826824
@@ -917,7 +915,7 @@ parseAbsoluteURI :: Text -> Maybe URI
917915parseAbsoluteURI uri = do
918916 parsedUri <- mkURI uri
919917 guard $ isPathAbsolute parsedUri
920− pure $ parsedUri
918+ pure parsedUri
921919
922920parseSshShorthand :: Text -> Maybe URI
923921parseSshShorthand uri = do