{-# LANGUAGE OverloadedStrings #-}

module Hledger.Flow.DocHelpers where

import qualified Data.Text as T (Text)
import Turtle ((%))
import qualified Turtle as Turtle (Line, format, l)

docURL :: Turtle.Line -> T.Text
docURL :: Line -> Text
docURL = Format Text (Line -> Text) -> Line -> Text
forall r. Format Text r -> r
Turtle.format (Format (Line -> Text) (Line -> Text)
"https://github.com/apauley/hledger-flow/tree/master/docs#" Format (Line -> Text) (Line -> Text)
-> Format Text (Line -> Text) -> Format Text (Line -> Text)
forall b c a. Format b c -> Format a b -> Format a c
% Format Text (Line -> Text)
forall r. Format r (Line -> r)
Turtle.l)