Renamed modules Ur.** to Urbit.** to be consistent with urbit-{atom,hob}

This commit is contained in:
Benjamin Summers 2020-01-23 21:28:38 -08:00
parent 6a450b93b9
commit 6977ae8d3f
54 changed files with 295 additions and 296 deletions

View File

@ -3,7 +3,7 @@ module SimpleNoun where
import ClassyPrelude
import Numeric.Natural
import qualified Ur.Noun as N
import qualified Urbit.Noun as N
type Atom = Natural

View File

@ -1,2 +1,2 @@
module Main (module Ur.King.Main) where
import Ur.King.Main
module Main (module Urbit.King.Main) where
import Urbit.King.Main

View File

@ -1,13 +0,0 @@
module Ur.Arvo
( module Ur.Arvo.Common
, module Ur.Arvo.Effect
, module Ur.Arvo.Event
, FX
) where
import Ur.Arvo.Common
import Ur.Arvo.Effect
import Ur.Arvo.Event
import Ur.Noun.Conversions (Lenient)
type FX = [Lenient Ef]

View File

@ -0,0 +1,13 @@
module Urbit.Arvo
( module Urbit.Arvo.Common
, module Urbit.Arvo.Effect
, module Urbit.Arvo.Event
, FX
) where
import Urbit.Arvo.Common
import Urbit.Arvo.Effect
import Urbit.Arvo.Event
import Urbit.Noun.Conversions (Lenient)
type FX = [Lenient Ef]

View File

@ -1,7 +1,7 @@
{-|
Types used in both Events and Effects.
-}
module Ur.Arvo.Common
module Urbit.Arvo.Common
( KingId(..), ServId(..)
, Json, JsonNode(..)
, Desk(..), Mime(..)
@ -12,7 +12,7 @@ module Ur.Arvo.Common
, AmesDest(..), Ipv4(..), Ipv6(..), Patp(..), Galaxy, AmesAddress(..)
) where
import Ur.Prelude hiding (Term)
import Urbit.Prelude hiding (Term)
import qualified Network.HTTP.Types.Method as H
import qualified Urbit.Ob as Ob

View File

@ -1,16 +1,16 @@
{-|
Effect Types and Their Noun Conversions
-}
module Ur.Arvo.Effect where
module Urbit.Arvo.Effect where
import Ur.Prelude
import Ur.Time
import Urbit.Prelude
import Urbit.Time
import Ur.Arvo.Common (KingId(..), ServId(..))
import Ur.Arvo.Common (Header, HttpEvent, HttpServerConf, Method, Mime)
import Ur.Arvo.Common (AmesDest, Turf)
import Ur.Arvo.Common (ReOrg(..), reorgThroughNoun)
import Ur.Arvo.Common (Desk)
import Urbit.Arvo.Common (KingId(..), ServId(..))
import Urbit.Arvo.Common (Header, HttpEvent, HttpServerConf, Method, Mime)
import Urbit.Arvo.Common (AmesDest, Turf)
import Urbit.Arvo.Common (ReOrg(..), reorgThroughNoun)
import Urbit.Arvo.Common (Desk)
-- Newt Effects ----------------------------------------------------------------

View File

@ -1,16 +1,16 @@
{-|
Event Types and Noun Conversion
-}
module Ur.Arvo.Event where
module Urbit.Arvo.Event where
import Ur.Noun.Tree (HoonMap, HoonSet)
import Ur.Prelude hiding (Term)
import Urbit.Noun.Tree (HoonMap, HoonSet)
import Urbit.Prelude hiding (Term)
import Ur.Arvo.Common (KingId(..), ServId(..))
import Ur.Arvo.Common (Desk, Mime)
import Ur.Arvo.Common (Header(..), HttpEvent)
import Ur.Arvo.Common (AmesDest, Ipv4, Ipv6, Port, Turf)
import Ur.Arvo.Common (ReOrg(..), reorgThroughNoun)
import Urbit.Arvo.Common (KingId(..), ServId(..))
import Urbit.Arvo.Common (Desk, Mime)
import Urbit.Arvo.Common (Header(..), HttpEvent)
import Urbit.Arvo.Common (AmesDest, Ipv4, Ipv6, Port, Turf)
import Urbit.Arvo.Common (ReOrg(..), reorgThroughNoun)
import qualified Crypto.Sign.Ed25519 as Ed
import qualified Data.ByteString as BS

View File

@ -4,23 +4,23 @@
ships. Do it or strip it out.
-}
module Ur.King.API (King(..), kingAPI, readPortsFile) where
module Urbit.King.API (King(..), kingAPI, readPortsFile) where
import RIO.Directory
import Ur.Prelude
import Urbit.Prelude
import Network.Socket (Socket)
import Prelude (read)
import Ur.Arvo (Belt)
import Ur.King.App (HasConfigDir(..))
import Urbit.Arvo (Belt)
import Urbit.King.App (HasConfigDir(..))
import qualified Network.HTTP.Types as H
import qualified Network.Wai as W
import qualified Network.Wai.Handler.Warp as W
import qualified Network.Wai.Handler.WebSockets as WS
import qualified Network.WebSockets as WS
import qualified Ur.Vere.NounServ as NounServ
import qualified Ur.Vere.Term.API as Term
import qualified Urbit.Vere.NounServ as NounServ
import qualified Urbit.Vere.Term.API as Term
-- Types -----------------------------------------------------------------------

View File

@ -1,7 +1,7 @@
{-|
Code for setting up the RIO environment.
-}
module Ur.King.App
module Urbit.King.App
( App
, runApp
, runAppLogFile
@ -10,8 +10,8 @@ module Ur.King.App
, HasConfigDir(..)
) where
import Ur.King.Config
import Ur.Prelude
import Urbit.King.Config
import Urbit.Prelude
import System.Directory (createDirectoryIfMissing, getHomeDirectory)

View File

@ -4,7 +4,7 @@
{-|
Command line parsing.
-}
module Ur.King.CLI where
module Urbit.King.CLI where
import ClassyPrelude
import Options.Applicative

View File

@ -1,9 +1,9 @@
{-|
Pier Configuration
-}
module Ur.King.Config where
module Urbit.King.Config where
import Ur.Prelude
import Urbit.Prelude
{-|
All the configuration data revolving around a ship and the current

View File

@ -4,21 +4,20 @@
TODO Handle CTRL-D
-}
module Ur.King.EventBrowser (run) where
module Urbit.King.EventBrowser (run) where
import Ur.Prelude
import Urbit.Prelude
import Data.Conduit
import Ur.Arvo
import Ur.Time
import Ur.Vere.Pier.Types
import Urbit.Arvo
import Urbit.Time
import Urbit.Vere.Pier.Types
import Control.Monad.Trans.Maybe (MaybeT(..))
import Ur.Vere.Log (EventLog)
import Urbit.Vere.Log (EventLog)
import qualified Data.Conduit.Combinators as C
import qualified Ur.Vere.Log as Log
import qualified Urbit.Vere.Log as Log
--------------------------------------------------------------------------------

View File

@ -53,9 +53,9 @@
- `Hashless`: Don't use hashboard for jets.
-}
module Ur.King.Main (main) where
module Urbit.King.Main (main) where
import Ur.Prelude
import Urbit.Prelude
import Data.Acquire
import Data.Conduit
@ -63,25 +63,25 @@ import Data.Conduit.List hiding (catMaybes, map, replicate, take)
import Data.RAcquire
import Network.HTTP.Client.TLS
import RIO.Directory
import Ur.Arvo
import Ur.King.Config
import Ur.Noun hiding (Parser)
import Ur.Noun.Conversions (cordToUW)
import Ur.Vere.Dawn
import Ur.Vere.Pier
import Ur.Vere.Pier.Types
import Ur.Vere.Serf
import Urbit.Arvo
import Urbit.King.Config
import Urbit.Noun hiding (Parser)
import Urbit.Noun.Conversions (cordToUW)
import Urbit.Vere.Dawn
import Urbit.Vere.Pier
import Urbit.Vere.Pier.Types
import Urbit.Vere.Serf
import Control.Concurrent (myThreadId, runInBoundThread)
import Control.Exception (AsyncException(UserInterrupt))
import Control.Lens ((&))
import Data.Default (def)
import RIO (logSticky, logStickyDone)
import Text.Show.Pretty (pPrint)
import Ur.King.App (runApp, runAppLogFile, runPierApp)
import Ur.King.App (HasConfigDir(..))
import Ur.Time (Wen)
import Ur.Vere.LockFile (lockFile)
import Control.Concurrent (myThreadId, runInBoundThread)
import Control.Exception (AsyncException(UserInterrupt))
import Control.Lens ((&))
import Data.Default (def)
import RIO (logSticky, logStickyDone)
import Text.Show.Pretty (pPrint)
import Urbit.King.App (runApp, runAppLogFile, runPierApp)
import Urbit.King.App (HasConfigDir(..))
import Urbit.Time (Wen)
import Urbit.Vere.LockFile (lockFile)
import qualified Data.Set as Set
import qualified Data.Text as T
@ -93,13 +93,13 @@ import qualified System.IO.LockFile.Internal as Lock
import qualified System.Posix.Signals as Sys
import qualified System.ProgressBar as PB
import qualified System.Random as Sys
import qualified Ur.King.CLI as CLI
import qualified Ur.King.EventBrowser as EventBrowser
import qualified Ur.Vere.Log as Log
import qualified Ur.Vere.Pier as Pier
import qualified Ur.Vere.Serf as Serf
import qualified Ur.Vere.Term as Term
import qualified Urbit.King.CLI as CLI
import qualified Urbit.King.EventBrowser as EventBrowser
import qualified Urbit.Ob as Ob
import qualified Urbit.Vere.Log as Log
import qualified Urbit.Vere.Pier as Pier
import qualified Urbit.Vere.Serf as Serf
import qualified Urbit.Vere.Term as Term
--------------------------------------------------------------------------------

View File

@ -1,11 +1,11 @@
{-|
Test jam/cue on pills.
-}
module Ur.King.TryJamPill where
module Urbit.King.TryJamPill where
import ClassyPrelude
import Control.Lens
import Ur.Noun
import Urbit.Noun
--------------------------------------------------------------------------------

View File

@ -3,17 +3,17 @@
This module just re-exports things from submodules.
-}
module Ur.Noun
module Urbit.Noun
( module Urbit.Atom
, module Data.Word
, module Ur.Noun.Conversions
, module Ur.Noun.Convert
, module Ur.Noun.Core
, module Ur.Noun.Cue
, module Ur.Noun.Jam
, module Ur.Noun.Tank
, module Ur.Noun.TH
, module Ur.Noun.Tree
, module Urbit.Noun.Conversions
, module Urbit.Noun.Convert
, module Urbit.Noun.Core
, module Urbit.Noun.Cue
, module Urbit.Noun.Jam
, module Urbit.Noun.Tank
, module Urbit.Noun.TH
, module Urbit.Noun.Tree
, _Cue
, LoadErr(..)
, loadFile
@ -24,14 +24,14 @@ import Control.Lens
import Data.Word
import Urbit.Atom
import Ur.Noun.Conversions
import Ur.Noun.Convert
import Ur.Noun.Core
import Ur.Noun.Cue
import Ur.Noun.Jam
import Ur.Noun.Tank
import Ur.Noun.TH
import Ur.Noun.Tree
import Urbit.Noun.Conversions
import Urbit.Noun.Convert
import Urbit.Noun.Core
import Urbit.Noun.Cue
import Urbit.Noun.Jam
import Urbit.Noun.Tank
import Urbit.Noun.TH
import Urbit.Noun.Tree
--------------------------------------------------------------------------------

View File

@ -4,7 +4,7 @@
Large Library of conversion between various types and Nouns.
-}
module Ur.Noun.Conversions
module Urbit.Noun.Conversions
( Nullable(..), Jammed(..), AtomCell(..)
, Word128, Word256, Word512
, Bytes(..), Octs(..), File(..)
@ -24,9 +24,9 @@ import Data.Word
import Text.Regex.TDFA
import Text.Regex.TDFA.Text ()
import Urbit.Atom
import Ur.Noun.Convert
import Ur.Noun.Core
import Ur.Noun.TH
import Urbit.Noun.Convert
import Urbit.Noun.Core
import Urbit.Noun.TH
import Data.LargeWord (LargeKey, Word128, Word256)
import GHC.Exts (chr#, isTrue#, leWord#, word2Int#)
@ -39,8 +39,8 @@ import RIO.FilePath (joinPath, splitDirectories, takeBaseName,
takeDirectory, takeExtension, (<.>), (</>))
import System.IO.Unsafe (unsafePerformIO)
import Text.Show.Pretty (ppShow)
import Ur.Noun.Cue (cue)
import Ur.Noun.Jam (jam)
import Urbit.Noun.Cue (cue)
import Urbit.Noun.Jam (jam)
import qualified Data.Char as C
import qualified Data.Text.Encoding as T

View File

@ -1,7 +1,7 @@
{-|
Framework for writing conversions between types and nouns.
-}
module Ur.Noun.Convert
module Urbit.Noun.Convert
( ToNoun(toNoun)
, FromNoun(parseNoun), fromNoun, fromNounErr, fromNounExn
, Parser(..)
@ -12,7 +12,7 @@ module Ur.Noun.Convert
import ClassyPrelude hiding (hash)
import Ur.Noun.Core
import Urbit.Noun.Core
import qualified Control.Monad.Fail as Fail

View File

@ -9,7 +9,7 @@
the total number of nodes under the tree of the cell. This is used
as a heuristic to choose a hash-table size for `jam` and `cue`.
-}
module Ur.Noun.Core
module Urbit.Noun.Core
( Noun, nounSize
, pattern Cell, pattern Atom
, pattern C, pattern A

View File

@ -5,12 +5,12 @@
Implementation is based on the approach used in `flat`.
-}
module Ur.Noun.Cue (cue, cueExn, cueBS, cueBSExn, DecodeErr) where
module Urbit.Noun.Cue (cue, cueExn, cueBS, cueBSExn, DecodeErr) where
import ClassyPrelude
import Urbit.Atom
import Ur.Noun.Core
import Urbit.Noun.Core
import Data.Bits (shiftL, shiftR, (.&.), (.|.))
import Data.Function ((&))

View File

@ -5,13 +5,13 @@
This is based on the implementation of `flat`.
-}
module Ur.Noun.Jam (jam, jamBS) where
module Urbit.Noun.Jam (jam, jamBS) where
import ClassyPrelude hiding (hash)
import Urbit.Atom
import Urbit.Atom.Internal
import Ur.Noun.Core
import Urbit.Noun.Core
import Data.Bits (clearBit, setBit, shiftL, shiftR, (.|.))
import Data.Vector.Primitive ((!))

View File

@ -1,14 +1,14 @@
{-|
Template Haskell Code to Generate FromNoun and ToNoun Instances
-}
module Ur.Noun.TH (deriveNoun, deriveToNoun, deriveFromNoun) where
module Urbit.Noun.TH (deriveNoun, deriveToNoun, deriveFromNoun) where
import ClassyPrelude hiding (fromList)
import Language.Haskell.TH
import Language.Haskell.TH.Syntax
import Ur.Noun.Convert
import Urbit.Noun.Convert
import Ur.Noun.Core (textToUtf8Atom)
import Urbit.Noun.Core (textToUtf8Atom)
import qualified Data.Char as C

View File

@ -2,11 +2,11 @@
Pretty Printer Types
-}
module Ur.Noun.Tank where
module Urbit.Noun.Tank where
import ClassyPrelude
import Ur.Noun.Conversions
import Ur.Noun.TH
import Urbit.Noun.Conversions
import Urbit.Noun.TH
--------------------------------------------------------------------------------

View File

@ -4,7 +4,7 @@
{-|
Hoon's `map` and `set` types and conversions to/from Nouns.
-}
module Ur.Noun.Tree
module Urbit.Noun.Tree
( HoonSet, setToHoonSet, setFromHoonSet
, HoonMap, mapToHoonMap, mapFromHoonMap
, mug
@ -14,10 +14,10 @@ import ClassyPrelude
import Control.Lens hiding (non)
import Urbit.Atom
import Ur.Noun.Conversions ()
import Ur.Noun.Convert
import Ur.Noun.Core
import Ur.Noun.TH
import Urbit.Noun.Conversions ()
import Urbit.Noun.Convert
import Urbit.Noun.Core
import Urbit.Noun.TH
import Data.Bits (shiftR, xor)
import Data.Hash.Murmur (murmur3)

View File

@ -2,14 +2,14 @@
Convenient Re-Exports
-}
module Ur.Prelude
module Urbit.Prelude
( module ClassyPrelude
, module Control.Arrow
, module Control.Lens
, module Data.Acquire
, module Data.RAcquire
, module Data.Void
, module Ur.Noun
, module Urbit.Noun
, module Text.Show.Pretty
, module Text.Printf
, module RIO
@ -18,7 +18,7 @@ module Ur.Prelude
) where
import ClassyPrelude
import Ur.Noun
import Urbit.Noun
import Control.Lens hiding (Each, Index, cons, index, snoc, uncons, unsnoc,
(<.>), (<|))

View File

@ -2,7 +2,7 @@
TODO This is slow.
-}
module Ur.Time where
module Urbit.Time where
import Control.Lens
import Prelude
@ -12,7 +12,7 @@ import Data.Time.Clock (DiffTime, UTCTime)
import Data.Time.Clock (diffTimeToPicoseconds, picosecondsToDiffTime)
import Data.Time.Clock.System (SystemTime(..), getSystemTime)
import Data.Time.Clock.System (systemToUTCTime, utcToSystemTime)
import Ur.Noun (FromNoun, ToNoun)
import Urbit.Noun (FromNoun, ToNoun)
-- Types -----------------------------------------------------------------------

View File

@ -1,4 +1,4 @@
module Ur.Timer ( Timer(..), init, stop, start
module Urbit.Timer ( Timer(..), init, stop, start
, Sys.getSystemTime, sysTimeGapMicroSecs
) where

View File

@ -2,21 +2,21 @@
Ames IO Driver -- UDP
-}
module Ur.Vere.Ames (ames) where
module Urbit.Vere.Ames (ames) where
import Ur.Prelude
import Urbit.Prelude
import Control.Monad.Extra hiding (mapM_)
import Network.Socket hiding (recvFrom, sendTo)
import Network.Socket.ByteString
import Ur.Arvo hiding (Fake)
import Ur.King.Config
import Ur.Vere.Pier.Types
import Urbit.Arvo hiding (Fake)
import Urbit.King.Config
import Urbit.Vere.Pier.Types
import qualified Data.ByteString as BS
import qualified Data.Map as M
import qualified Ur.Time as Time
import qualified Urbit.Ob as Ob
import qualified Urbit.Time as Time
-- Types -----------------------------------------------------------------------

View File

@ -2,17 +2,17 @@
Behn: Timer Driver
-}
module Ur.Vere.Behn (behn) where
module Urbit.Vere.Behn (behn) where
import Ur.Arvo hiding (Behn)
import Ur.Prelude
import Ur.Vere.Pier.Types
import Urbit.Arvo hiding (Behn)
import Urbit.Prelude
import Urbit.Vere.Pier.Types
import Ur.Time (Wen)
import Ur.Timer (Timer)
import Urbit.Time (Wen)
import Urbit.Timer (Timer)
import qualified Ur.Time as Time
import qualified Ur.Timer as Timer
import qualified Urbit.Time as Time
import qualified Urbit.Timer as Timer
-- Behn Stuff ------------------------------------------------------------------

View File

@ -2,12 +2,12 @@
UNIX Filesystem Driver
-}
module Ur.Vere.Clay (clay) where
module Urbit.Vere.Clay (clay) where
import Ur.Arvo hiding (Term)
import Ur.King.Config
import Ur.Prelude
import Ur.Vere.Pier.Types
import Urbit.Arvo hiding (Term)
import Urbit.King.Config
import Urbit.Prelude
import Urbit.Vere.Pier.Types
import Conduit
import RIO.Directory

View File

@ -2,11 +2,11 @@
Use etherium to access PKI information.
-}
module Ur.Vere.Dawn where
module Urbit.Vere.Dawn where
import Ur.Arvo.Common
import Ur.Arvo.Event hiding (Address)
import Ur.Prelude hiding (Call, rights, to)
import Urbit.Arvo.Common
import Urbit.Arvo.Event hiding (Address)
import Urbit.Prelude hiding (Call, rights, to)
import Data.Bits (xor)
import Data.List (nub)

View File

@ -2,11 +2,11 @@
HTTP Driver
-}
module Ur.Vere.Http where
module Urbit.Vere.Http where
import ClassyPrelude
import Ur.Arvo
import Ur.Noun
import Urbit.Arvo
import Urbit.Noun
import qualified Data.CaseInsensitive as CI
import qualified Network.HTTP.Types as HT

View File

@ -5,15 +5,15 @@
already in use.
-}
module Ur.Vere.Http.Client where
module Urbit.Vere.Http.Client where
import Ur.Arvo (BlipEv(..), Ev(..), HttpClientEf(..),
HttpClientEv(..), HttpClientReq(..), HttpEvent(..),
KingId, ResponseHeader(..))
import Ur.Prelude hiding (Builder)
import Ur.Vere.Pier.Types
import Urbit.Arvo (BlipEv(..), Ev(..), HttpClientEf(..),
HttpClientEv(..), HttpClientReq(..),
HttpEvent(..), KingId, ResponseHeader(..))
import Urbit.Prelude hiding (Builder)
import Urbit.Vere.Pier.Types
import Ur.Vere.Http
import Urbit.Vere.Http
import qualified Data.Map as M
import qualified Network.HTTP.Client as H

View File

@ -24,21 +24,21 @@
{-# OPTIONS_GHC -Wwarn #-}
module Ur.Vere.Http.Server where
module Urbit.Vere.Http.Server where
import Data.Conduit
import Ur.Arvo hiding (ServerId, reqBody, reqUrl, secure)
import Ur.King.Config
import Ur.Noun
import Ur.Prelude hiding (Builder)
import Ur.Vere.Pier.Types
import Urbit.Arvo hiding (ServerId, reqBody, reqUrl, secure)
import Urbit.King.Config
import Urbit.Noun
import Urbit.Prelude hiding (Builder)
import Urbit.Vere.Pier.Types
import Data.Binary.Builder (Builder, fromByteString)
import Data.Bits (shiftL, (.|.))
import Network.Socket (SockAddr(..))
import System.Directory (doesFileExist, removeFile)
import System.Random (randomIO)
import Ur.Vere.Http (convertHeaders, unconvertHeaders)
import Urbit.Vere.Http (convertHeaders, unconvertHeaders)
import qualified Network.HTTP.Types as H
import qualified Network.Socket as Net

View File

@ -2,15 +2,15 @@
Low-Level Inferface for LMDB Event Log.
-}
module Ur.Vere.LMDB where
module Urbit.Vere.LMDB where
import Ur.Prelude hiding (init)
import Urbit.Prelude hiding (init)
import Data.RAcquire
import Database.LMDB.Raw
import Foreign.Marshal.Alloc
import Foreign.Ptr
import Ur.Vere.Pier.Types
import Urbit.Vere.Pier.Types
import Foreign.Storable (peek, poke, sizeOf)

View File

@ -2,9 +2,9 @@
Acquire and release the vere lockfile.
-}
module Ur.Vere.LockFile (lockFile) where
module Urbit.Vere.LockFile (lockFile) where
import Ur.Prelude
import Urbit.Prelude
import Data.Default (def)
import RIO.Directory (createDirectoryIfMissing)

View File

@ -4,20 +4,20 @@
TODO Effects storage logic is messy.
-}
module Ur.Vere.Log ( EventLog, identity, nextEv, lastEv
, new, existing
, streamEvents, appendEvents, trimEvents
, streamEffectsRows, writeEffectsRow
) where
module Urbit.Vere.Log ( EventLog, identity, nextEv, lastEv
, new, existing
, streamEvents, appendEvents, trimEvents
, streamEffectsRows, writeEffectsRow
) where
import Ur.Prelude hiding (init)
import Urbit.Prelude hiding (init)
import Data.Conduit
import Data.RAcquire
import Database.LMDB.Raw
import Foreign.Marshal.Alloc
import Foreign.Ptr
import Ur.Vere.Pier.Types
import Urbit.Vere.Pier.Types
import Foreign.Storable (peek, poke, sizeOf)

View File

@ -2,7 +2,7 @@
Use websockets to pass nouns between a client and server.
-}
module Ur.Vere.NounServ
module Urbit.Vere.NounServ
( Conn(..)
, Server(..)
, Client(..)
@ -14,7 +14,7 @@ module Ur.Vere.NounServ
, wsConn
) where
import Ur.Prelude
import Urbit.Prelude
import qualified Network.Wai.Handler.Warp as W
import qualified Network.WebSockets as WS

View File

@ -6,39 +6,39 @@
This is the code that starts the IO drivers and deals with
communication between the serf, the log, and the IO drivers.
-}
module Ur.Vere.Pier
module Urbit.Vere.Pier
( booted, resumed, pier, runPersist, runCompute, generateBootSeq
) where
import Ur.Prelude
import Urbit.Prelude
import System.Random
import Ur.Arvo
import Ur.King.Config
import Ur.Vere.Pier.Types
import Urbit.Arvo
import Urbit.King.Config
import Urbit.Vere.Pier.Types
import Data.Text (append)
import System.Posix.Files (ownerModes, setFileMode)
import Ur.King.App (HasConfigDir(..))
import Ur.Vere.Ames (ames)
import Ur.Vere.Behn (behn)
import Ur.Vere.Clay (clay)
import Ur.Vere.Http.Client (client)
import Ur.Vere.Http.Server (serv)
import Ur.Vere.Log (EventLog)
import Ur.Vere.Serf (Serf, SerfState(..), doJob, sStderr)
import Data.Text (append)
import System.Posix.Files (ownerModes, setFileMode)
import Urbit.King.App (HasConfigDir(..))
import Urbit.Vere.Ames (ames)
import Urbit.Vere.Behn (behn)
import Urbit.Vere.Clay (clay)
import Urbit.Vere.Http.Client (client)
import Urbit.Vere.Http.Server (serv)
import Urbit.Vere.Log (EventLog)
import Urbit.Vere.Serf (Serf, SerfState(..), doJob, sStderr)
import RIO.Directory
import qualified System.Console.Terminal.Size as TSize
import qualified System.Entropy as Ent
import qualified Ur.King.API as King
import qualified Ur.Time as Time
import qualified Ur.Vere.Log as Log
import qualified Ur.Vere.Serf as Serf
import qualified Ur.Vere.Term as Term
import qualified Ur.Vere.Term.API as Term
import qualified Ur.Vere.Term.Demux as Term
import qualified Urbit.King.API as King
import qualified Urbit.Time as Time
import qualified Urbit.Vere.Log as Log
import qualified Urbit.Vere.Serf as Serf
import qualified Urbit.Vere.Term as Term
import qualified Urbit.Vere.Term.API as Term
import qualified Urbit.Vere.Term.Demux as Term
--------------------------------------------------------------------------------

View File

@ -3,12 +3,12 @@
TODO Most of these could probably find better homes.
-}
module Ur.Vere.Pier.Types where
module Urbit.Vere.Pier.Types where
import Ur.Prelude hiding (Term)
import Urbit.Prelude hiding (Term)
import Ur.Arvo
import Ur.Time
import Urbit.Arvo
import Urbit.Time
-- Avoid touching Nock values. -------------------------------------------------

View File

@ -6,20 +6,20 @@
TODO: `recvLen` is not big-endian safe.
-}
module Ur.Vere.Serf ( Serf, sStderr, SerfState(..), doJob
, run, shutdown, kill
, replay, bootFromSeq, snapshot
, collectFX
, Config(..), Flags, Flag(..)
) where
module Urbit.Vere.Serf ( Serf, sStderr, SerfState(..), doJob
, run, shutdown, kill
, replay, bootFromSeq, snapshot
, collectFX
, Config(..), Flags, Flag(..)
) where
import Ur.Prelude
import Urbit.Prelude
import Data.Conduit
import System.Process
import System.ProgressBar
import Ur.Arvo
import Ur.Vere.Pier.Types
import Urbit.Arvo
import Urbit.Vere.Pier.Types
import Data.Bits (setBit)
import Data.ByteString (hGet)
@ -35,8 +35,8 @@ import qualified Data.ByteString.Unsafe as BS
import qualified Data.Text as T
import qualified System.IO as IO
import qualified System.IO.Error as IO
import qualified Ur.Time as Time
import qualified Ur.Vere.Log as Log
import qualified Urbit.Time as Time
import qualified Urbit.Vere.Log as Log
-- Serf Config -----------------------------------------------------------------

View File

@ -1,7 +1,7 @@
{-|
Terminal Driver
-}
module Ur.Vere.Term
module Urbit.Vere.Term
( module Term
, localClient
, connectToRemote
@ -17,24 +17,24 @@ import Foreign.Storable
import RIO.FilePath
import System.Posix.IO
import System.Posix.Terminal
import Ur.Arvo hiding (Term)
import Ur.King.Config
import Ur.Prelude hiding (getCurrentTime)
import Ur.Time
import Ur.Vere.Pier.Types
import Urbit.Arvo hiding (Term)
import Urbit.King.Config
import Urbit.Prelude hiding (getCurrentTime)
import Urbit.Time
import Urbit.Vere.Pier.Types
import Data.List ((!!))
import RIO.Directory (createDirectoryIfMissing)
import Ur.King.API (readPortsFile)
import Ur.King.App (HasConfigDir(..))
import Ur.Vere.Term.API (Client(Client))
import Data.List ((!!))
import RIO.Directory (createDirectoryIfMissing)
import Urbit.King.API (readPortsFile)
import Urbit.King.App (HasConfigDir(..))
import Urbit.Vere.Term.API (Client(Client))
import qualified Data.ByteString.Internal as BS
import qualified Data.ByteString.UTF8 as BS
import qualified System.Console.Terminal.Size as TSize
import qualified System.Console.Terminfo.Base as T
import qualified Ur.Vere.NounServ as Serv
import qualified Ur.Vere.Term.API as Term
import qualified Urbit.Vere.NounServ as Serv
import qualified Urbit.Vere.Term.API as Term
-- Types -----------------------------------------------------------------------

View File

@ -1,11 +1,11 @@
{-|
Interface Terminal API.
-}
module Ur.Vere.Term.API (Ev(..), Client(..), trace, spin, stopSpin) where
module Urbit.Vere.Term.API (Ev(..), Client(..), trace, spin, stopSpin) where
import Ur.Prelude hiding (trace)
import Urbit.Prelude hiding (trace)
import Ur.Arvo (Belt, Blit)
import Urbit.Arvo (Belt, Blit)
-- External Types --------------------------------------------------------------

View File

@ -4,15 +4,15 @@
given full event history since the creation of the demuxer.
-}
module Ur.Vere.Term.Demux (Demux, mkDemux, addDemux, useDemux) where
module Urbit.Vere.Term.Demux (Demux, mkDemux, addDemux, useDemux) where
import Ur.Prelude
import Urbit.Prelude
import Ur.Arvo (Belt)
import Ur.Vere.Term.API (Client(Client))
import Urbit.Arvo (Belt)
import Urbit.Vere.Term.API (Client(Client))
import qualified Ur.Vere.Term.API as Term
import qualified Ur.Vere.Term.Logic as Logic
import qualified Urbit.Vere.Term.API as Term
import qualified Urbit.Vere.Term.Logic as Logic
-- External --------------------------------------------------------------------

View File

@ -2,7 +2,7 @@
Tracks terminal state so that new terminal connections can be brought
up to speed.
-}
module Ur.Vere.Term.Logic
module Urbit.Vere.Term.Logic
( SpinnerCause(..), St, Ev(..), Ef(..)
, init
, step
@ -11,12 +11,12 @@ module Ur.Vere.Term.Logic
, toTermEv
) where
import Ur.Prelude hiding (init)
import Urbit.Prelude hiding (init)
import Data.Sequence (Seq((:<|)))
import qualified Ur.Arvo as Arvo
import qualified Ur.Vere.Term.API as Term
import qualified Urbit.Arvo as Arvo
import qualified Urbit.Vere.Term.API as Term
--------------------------------------------------------------------------------

View File

@ -7,21 +7,21 @@ import Test.QuickCheck hiding ((.&.))
import Test.Tasty
import Test.Tasty.QuickCheck
import Test.Tasty.TH
import Ur.Arvo
import Ur.King.Config
import Ur.Noun
import Ur.Prelude
import Ur.Time
import Ur.Vere.Ames
import Ur.Vere.Log
import Ur.Vere.Pier.Types
import Urbit.Arvo
import Urbit.King.Config
import Urbit.Noun
import Urbit.Prelude
import Urbit.Time
import Urbit.Vere.Ames
import Urbit.Vere.Log
import Urbit.Vere.Pier.Types
import Control.Concurrent (runInBoundThread)
import Data.LargeWord (LargeKey(..))
import GHC.Natural (Natural)
import Network.Socket (tupleToHostAddress)
import qualified Ur.Vere.Log as Log
import qualified Urbit.Vere.Log as Log
-- Utils -----------------------------------------------------------------------

View File

@ -9,18 +9,18 @@ import Test.QuickCheck hiding ((.&.))
import Test.Tasty
import Test.Tasty.QuickCheck
import Test.Tasty.TH
import Ur.Arvo
import Ur.Prelude
import Ur.Time
import Ur.Vere.Log
import Ur.Vere.Pier.Types
import Urbit.Arvo
import Urbit.Prelude
import Urbit.Time
import Urbit.Vere.Log
import Urbit.Vere.Pier.Types
import Control.Concurrent (runInBoundThread, threadDelay)
import Data.LargeWord (LargeKey(..))
import GHC.Natural (Natural)
import Network.Socket (tupleToHostAddress)
import qualified Ur.Vere.Log as Log
import qualified Urbit.Vere.Log as Log
-- Utils -----------------------------------------------------------------------

View File

@ -8,22 +8,22 @@ import Test.QuickCheck hiding ((.&.))
import Test.Tasty
import Test.Tasty.QuickCheck
import Test.Tasty.TH
import Ur.Arvo
import Ur.Noun
import Ur.Prelude
import Ur.Time
import Ur.Vere.Behn
import Ur.Vere.Log
import Ur.Vere.Pier.Types
import Urbit.Arvo
import Urbit.Noun
import Urbit.Prelude
import Urbit.Time
import Urbit.Vere.Behn
import Urbit.Vere.Log
import Urbit.Vere.Pier.Types
import Control.Concurrent (runInBoundThread, threadDelay)
import Data.LargeWord (LargeKey(..))
import GHC.Natural (Natural)
import Network.Socket (tupleToHostAddress)
import Ur.King.App (runApp)
import Urbit.King.App (runApp)
import qualified Ur.Time as Time
import qualified Ur.Vere.Log as Log
import qualified Urbit.Time as Time
import qualified Urbit.Vere.Log as Log
--------------------------------------------------------------------------------

View File

@ -1,7 +1,7 @@
module ClayTests (tests) where
import Ur.Noun.Conversions
import Ur.Prelude
import Urbit.Noun.Conversions
import Urbit.Prelude
import Test.QuickCheck hiding ((.&.))
import Test.Tasty

View File

@ -1,14 +1,14 @@
module DawnTests (tests) where
import Ur.Arvo.Event
import Ur.Noun.Conversions
import Ur.Prelude
import Urbit.Arvo.Event
import Urbit.Noun.Conversions
import Urbit.Prelude
import Test.Tasty
import Test.Tasty.HUnit
import qualified Ur.Vere.Dawn as Dawn
import qualified Urbit.Ob as Ob
import qualified Urbit.Ob as Ob
import qualified Urbit.Vere.Dawn as Dawn
--------------------------------------------------------------------------------

View File

@ -7,15 +7,15 @@ import Test.QuickCheck hiding ((.&.))
import Test.Tasty
import Test.Tasty.QuickCheck
import Test.Tasty.TH
import Ur.Prelude
import Ur.Vere.Log
import Ur.Vere.Pier.Types
import Urbit.Prelude
import Urbit.Vere.Log
import Urbit.Vere.Pier.Types
import Control.Concurrent (runInBoundThread, threadDelay)
import Data.LargeWord (LargeKey(..))
import GHC.Natural (Natural)
import qualified Ur.Vere.Log as Log
import qualified Urbit.Vere.Log as Log
-- Sum Types -------------------------------------------------------------------

View File

@ -1,7 +1,7 @@
module HoonMapSetTests (tests) where
import RIO.Directory
import Ur.Prelude hiding (encodeUtf8)
import Urbit.Prelude hiding (encodeUtf8)
import Data.Text.Lazy.Encoding (encodeUtf8)
import Numeric.Natural (Natural)

View File

@ -1,10 +1,10 @@
module JamTests (tests) where
import Ur.Arvo.Event
import Ur.Noun.Conversions
import Ur.Noun.Cue
import Ur.Noun.Jam
import Ur.Prelude
import Urbit.Arvo.Event
import Urbit.Noun.Conversions
import Urbit.Noun.Cue
import Urbit.Noun.Jam
import Urbit.Prelude
import GHC.Natural (Natural(..))
import Test.QuickCheck hiding ((.&.))

View File

@ -7,16 +7,16 @@ import Test.QuickCheck hiding ((.&.))
import Test.Tasty
import Test.Tasty.QuickCheck
import Test.Tasty.TH
import Ur.Prelude
import Ur.Vere.Log
import Ur.Vere.Pier.Types
import Urbit.Prelude
import Urbit.Vere.Log
import Urbit.Vere.Pier.Types
import Control.Concurrent (runInBoundThread, threadDelay)
import Data.LargeWord (LargeKey(..))
import GHC.Natural (Natural)
import Ur.King.App (App, runApp)
import Urbit.King.App (App, runApp)
import qualified Ur.Vere.Log as Log
import qualified Urbit.Vere.Log as Log
-- Utils -----------------------------------------------------------------------

View File

@ -1,8 +1,8 @@
module NounConversionTests (tests) where
import Ur.Arvo.Event
import Ur.Noun.Conversions
import Ur.Prelude
import Urbit.Arvo.Event
import Urbit.Noun.Conversions
import Urbit.Prelude
import Data.Maybe
import Test.QuickCheck hiding ((.&.))