From 46a680f7ca7def264a0f0b616883fb8e47271bab Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Sun, 12 Apr 2020 12:15:49 -0700 Subject: De-namespace Alpha A bunch of formatting changes got in there too. Oops. I will probably eventually de-namespace everything, mostly because I'm tired of typing "Com.Whatever.Thing" all the time. A better namespacing strategy might be to use normal Haskell namespacing (Data, Control, Network, etc) for code that is not specific to biz activities (i.e. if I could open-source it at any time), and use simply "Biz" for stuff that I would never want to open-source. --- Run/Que/Server.hs | 4 ++-- Run/Que/Website.hs | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) (limited to 'Run') diff --git a/Run/Que/Server.hs b/Run/Que/Server.hs index 70bc559..e807502 100644 --- a/Run/Que/Server.hs +++ b/Run/Que/Server.hs @@ -20,7 +20,7 @@ module Run.Que.Server ) where -import Com.Simatime.Alpha hiding ( Text +import Alpha hiding ( Text , get , gets , modify @@ -147,7 +147,7 @@ routes = do app . modify <| upsertNamespace ns q <- app <| que ns qp qdata <- Scotty.body - _ <- liftIO <| Go.write q <| BSL.toStrict qdata + _ <- liftIO <| Go.write q <| BSL.toStrict qdata return () -- | Given `guardNs ns whitelist`, if `ns` is not in the `whitelist` diff --git a/Run/Que/Website.hs b/Run/Que/Website.hs index 7a551b8..52e46f9 100644 --- a/Run/Que/Website.hs +++ b/Run/Que/Website.hs @@ -17,8 +17,8 @@ module Run.Que.Website ) where +import Alpha import qualified Control.Concurrent.Async as Async -import Com.Simatime.Alpha import qualified Data.ByteString.Char8 as BS import qualified Data.Ini.Config as Config import qualified Data.Text as Text -- cgit v1.2.3