1
0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-20 05:11:46 +03:00
urbit/pkg/king/lib/UrbitPrelude.hs

56 lines
1.3 KiB
Haskell
Raw Normal View History

2019-07-16 03:01:45 +03:00
module UrbitPrelude
( module ClassyPrelude
, module Control.Arrow
2019-07-16 03:01:45 +03:00
, module Control.Lens
2019-07-20 06:00:23 +03:00
, module Data.Acquire
2019-08-28 14:45:49 +03:00
, module Data.RAcquire
, module Data.Void
, module Noun
, module Text.Show.Pretty
, module Text.Printf
2019-08-28 14:45:49 +03:00
, module RIO
, io, rio
, logTrace
2019-07-16 03:01:45 +03:00
) where
import ClassyPrelude
import Noun
2019-07-20 06:00:23 +03:00
import Control.Lens hiding (Index, cons, index, snoc, uncons, unsnoc, (<.>),
(<|))
import Control.Arrow ((<<<), (>>>))
2019-08-28 14:45:49 +03:00
import Data.RAcquire (RAcquire, mkRAcquire, rwith)
import Data.RAcquire (MonadRIO(..), MonadAcquire(..))
import Data.Acquire (Acquire, mkAcquire, with)
import Data.Void (Void, absurd)
import Text.Printf (printf)
import Text.Show.Pretty (pPrint, ppShow)
2019-08-28 14:45:49 +03:00
import RIO (RIO, runRIO)
import RIO (Utf8Builder, display, displayShow)
import RIO (threadDelay)
import RIO ( HasLogFunc
, LogFunc
, logError
, logInfo
, logWarn
, logDebug
, logOther
, logFuncL
, logOptionsHandle
, withLogFunc
, setLogUseTime
, setLogUseLoc
)
io :: MonadIO m => IO a -> m a
io = liftIO
rio :: MonadRIO m => RIO e a -> m e a
rio = liftRIO
logTrace :: HasLogFunc e => Utf8Builder -> RIO e ()
logTrace = logOther "trace"