tintin 1.7.0 → 1.7.1
raw patch · 3 files changed
+16/−9 lines, 3 files
Files
- src/Tintin/ConfigurationLoading.hs +13/−6
- src/Tintin/Html/Style.hs +1/−1
- tintin.cabal +2/−2
src/Tintin/ConfigurationLoading.hs view
@@ -13,7 +13,7 @@ require Data.Text import Tintin.Core-import Universum.Unsafe (fromJust)+import qualified Universum.Unsafe as Unsafe import Text.Read (read) @@ -59,11 +59,11 @@ (Errors.showAndDie ["Tintin usually generates a .tintin.yml file with a color configuration. Maybe you don't have enough permissions?\ \\n\nTry creating .tintin.yml and adding color:blue to it."]) return Project.Info- { name = fromJust projectName- , synopsis = fromJust projectSynopsis- , githubLink = parseGithubUrl $ fromJust projectGithub- , githubAuthor = fromJust projectAuthor- , color = makeColor $ fromJust tintinColor+ { name = Unsafe.fromJust projectName+ , synopsis = Unsafe.fromJust projectSynopsis+ , githubLink = parseGithubUrl $ Unsafe.fromJust projectGithub+ , githubAuthor = Unsafe.fromJust projectAuthor+ , color = makeColor $ Unsafe.fromJust tintinColor , logoUrl = tintinLogo , pages = pages }@@ -98,6 +98,13 @@ txt |> (Text.stripPrefix "\"" >=> Text.stripSuffix "\"") |> fromMaybe txt+ |> (\t -> if "http" `Text.isPrefixOf` t+ then Text.splitOn "/" t+ |> dropWhile (not . Text.isInfixOf "github")+ |> Unsafe.tail+ |> Unsafe.head+ else t+ ) |> Text.takeWhile (/= '/') parseGithubUrl txt =
src/Tintin/Html/Style.hs view
@@ -137,7 +137,7 @@ ".filter-gray" ? do position relative- bottom (px ( -3 ))+ bottom (px ( 3 )) marginLeft (rem 0.25) marginRight (rem 1) height (rem 1)
tintin.cabal view
@@ -2,10 +2,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 848c7ddf6e86b36b47395d20a2a0db79970dde0c64c1e0bab0728fc21e1da2d2+-- hash: fc18b705429def3304a05fcd22f329bdea7372204e25c4d8b35edec8c3583591 name: tintin-version: 1.7.0+version: 1.7.1 synopsis: A softer alternative to Haddock description: Please see the website <https://theam.github.io/tintin> category: Documentation