mirror of
https://github.com/urbit/shrub.git
synced 2024-12-20 17:32:11 +03:00
de17409fd6
This also removes -Werror from racqure due to the sheer number build failures arising from compiler warnings.
48 lines
1.3 KiB
Haskell
48 lines
1.3 KiB
Haskell
{-|
|
|
Convenient Re-Exports
|
|
-}
|
|
|
|
module Urbit.Prelude
|
|
( module ClassyPrelude
|
|
, module Control.Arrow
|
|
, module Control.Lens
|
|
, module Data.Acquire
|
|
, module Data.RAcquire
|
|
, module Data.Void
|
|
, module Urbit.Noun
|
|
, module Text.Show.Pretty
|
|
, module Text.Printf
|
|
, module RIO
|
|
, io, rio
|
|
, logTrace
|
|
) where
|
|
|
|
import ClassyPrelude
|
|
import Urbit.Noun
|
|
|
|
import Control.Arrow ((<<<), (>>>))
|
|
import Control.Lens hiding (Each, Index, cons, index, snoc, uncons, unsnoc,
|
|
(<.>), (<|))
|
|
import Data.Acquire (Acquire, mkAcquire, with)
|
|
import Data.RAcquire (RAcquire, mkRAcquire, rwith)
|
|
import Data.RAcquire (MonadAcquire(..), MonadRIO(..))
|
|
import Data.Void (Void, absurd)
|
|
import Text.Printf (printf)
|
|
import Text.Show.Pretty (pPrint, ppShow)
|
|
|
|
import RIO (RIO, runRIO)
|
|
import RIO (Utf8Builder, display, displayShow)
|
|
import RIO (threadDelay)
|
|
import RIO (HasLogFunc, LogFunc, LogLevel(..), logDebug, logError, logFuncL,
|
|
logInfo, logOptionsHandle, logOther, logWarn, mkLogFunc,
|
|
setLogMinLevel, setLogUseLoc, setLogUseTime, withLogFunc)
|
|
|
|
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"
|