@@ -195,8 +195,9 @@ getVersionFromGitTag = do
195195getTagTime :: Text -> PrepareM UTCTime
196196getTagTime tag = do
197197 out <- readProcess' "git" ["show", T.unpack tag, "--no-patch", "--format=%aI"] ""
198− let time = headMay (lines out) >>= D.parseTime
199− maybe (internalError (CouldntParseGitTagDate tag)) pure time
198+ case mapMaybe D.parseTime (lines out) of
199+ [t] -> pure t
200+ _ -> internalError (CouldntParseGitTagDate tag)
200201
201202getBowerRepositoryInfo :: PackageMeta -> PrepareM (D.GithubUser, D.GithubRepo)
202203getBowerRepositoryInfo = either (userError . BadRepositoryField) return . tryExtract