andrevdm

{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE OverloadedStrings #-}

module Main where

import Protolude 
import qualified Web.Scotty as Sc
import qualified Data.Text as Txt
import qualified Network.Wai.Middleware.Gzip as Sc

andrevdm

#Per pane floating window
#Toggle with ` (grave) key
bind ` if-shell "echo '#{session_name}' | grep -q 'fterm-'" {
    detach-client
} {
    run-shell "tmux popup -E 'tmux attach -t fterm-#{session_name}-#{pane_id} || tmux new -s fterm-#{session_name}-#{pane_id}'"
}

andrevdm

{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE ScopedTypeVariables #-}

module Lib where

import           Protolude
import           Control.Lens.TH (makeClassy, makeClassyPrisms)

andrevdm

{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}

module Main where

import           Protolude hiding (to, (&))
import qualified System.IO as IO
import           Control.Lens ((<&>), (^.), (.~), (&), set, view)
import qualified Data.Text as Txt
import qualified Data.Conduit as C

andrevdm

{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE NumericUnderscores #-}
{-# LANGUAGE RankNTypes #-}

module Rabbit
    ( defaultOpts
    , mkConnection
    , runTopicConsumer

andrevdm

import           Protolude
import qualified Network.HTTP.ReverseProxy as Rp
import qualified Network.Wai as W
import qualified Network.Wai.Handler.Warp as Wrp
import qualified Network.HTTP.Client as HC

testProxy :: IO ()
testProxy =
  Wrp.run 3000 =<< revProxyApp

andrevdm

import           Control.Exception.Safe (throwString)
import qualified Data.ByteString.Lazy as BSL
import qualified Data.Text as Txt
import qualified Data.Text.Encoding as TxtE
import qualified Network.HTTP.Client as HC
import qualified Network.HTTP.Client.MultipartFormData as MFD
import           Network.HTTP.Req ((/:))
import qualified Network.HTTP.Req as R
import qualified System.FilePath as Fp
import qualified Text.URI as URI

andrevdm

import           Data.Conduit ((.|))
import qualified Data.Conduit as C
import qualified Data.Conduit.Combinators as C
import           Network.HTTP.Req ((/:))
import qualified Network.HTTP.Req as R
import qualified Network.HTTP.Req.Conduit as R

downloadChunkedUrl
  :: FilePath
  -> (ByteString -> IO ())

andrevdm

{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
-- {-# LANGUAGE ExplicitForAll #-}
{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE TypeApplications #-}
{-# LANGUAGE FlexibleContexts #-}

module Lib
    ( run
    ) where

andrevdm

{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
-- {-# LANGUAGE ExplicitForAll #-}
{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE TypeApplications #-}
{-# LANGUAGE FlexibleContexts #-}

module Lib
    ( run
    ) where