summaryrefslogtreecommitdiff
path: root/Run
diff options
context:
space:
mode:
authorBen Sima <ben@bsima.me>2020-04-12 12:15:49 -0700
committerBen Sima <ben@bsima.me>2020-04-12 19:01:15 -0700
commit46a680f7ca7def264a0f0b616883fb8e47271bab (patch)
tree92020970623359e6dc76f02d7c537c846c1d4ed9 /Run
parent72e42deeb5d5b9cd2765d2ff20a06e708f8efc07 (diff)
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.
Diffstat (limited to 'Run')
-rw-r--r--Run/Que/Server.hs4
-rw-r--r--Run/Que/Website.hs2
2 files changed, 3 insertions, 3 deletions
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