{-# LANGUAGE CPP #-}
module Quaalude ( hex
, bool
, intersperse
, transpose
, sortBy
, void
, unless
, when
, join
, zipWithM_
, zipWithM
, filterM
, encode
, decode
, fromMaybe
, isPrefixOf
, isSuffixOf
, on
, both
, (<>)
, (***)
, (&&&)
, (<=<)
, first
, second
, getEnv
, exitWith
, showVersion
, ExitCode (ExitSuccess)
, MonadIO (..)
, silentCreateProcess
, Text
, pack
, unpack
, biaxe
, (.*)
, (.**)
, thread
, Interpret
, Generic
, Binary
, input
, auto
, detailed
, Rules
, Action
, command
, command_
, (%>)
, need
, want
, shake
, Rebuild (..)
, (~>)
, cmd
, cmd_
, ShakeOptions (..)
, shakeOptions
, copyFile'
, Change (..)
, Verbosity (..)
, removeFilesAfter
, Lint (..)
, takeBaseName
, takeFileName
, takeDirectory
, (-<.>)
, setFileMode
, ownerModes
, tlsManagerSettings
, newManager
, parseRequest
, httpLbs
, Response (..)
, Request (method, redirectCount)
, ByteString
, (<#>)
, (<+>)
, text
, punctuate
, dullred
, dullyellow
, hardline
, hang
, indent
, putDoc
, Pretty (pretty)
, module X
, over
, _Just
, view
, _1
, _2
, _4
, makeLensesFor
, makeLenses
, each
, (&)
, (%~)
) where
#if __GLASGOW_HASKELL__ < 804
import Data.Semigroup
#endif
import Control.Arrow hiding ((<+>))
import Control.Composition
import Control.Lens hiding (both)
import Control.Monad
import Control.Monad.IO.Class
import Data.Binary
import Data.Bool (bool)
import Data.ByteString.Lazy (ByteString)
import Data.List
import Data.Maybe (fromMaybe)
import Data.Text.Lazy (pack, unpack)
import Data.Version (showVersion)
import Development.Shake hiding (getEnv)
import Development.Shake.FilePath
import Dhall hiding (bool)
import Network.HTTP.Client
import Network.HTTP.Client.TLS (tlsManagerSettings)
import Numeric (showHex)
import System.Directory as X
import System.Environment (getEnv)
import System.Exit (ExitCode (ExitSuccess), exitWith)
import System.Posix.Files
import System.Process as X
import System.Process.Ext
import Text.PrettyPrint.ANSI.Leijen hiding (bool, (<>))
infixr 5 <#>
hex :: Int -> String
hex = flip showHex mempty
(<#>) :: Doc -> Doc -> Doc
(<#>) a b = a <> line <> b