Re-namespacing

Moving away from the DNS-driven namespacing toward more condensed names,
mostly because I don't like typing so much.

1 files changed, 38 insertions, 0 deletions

diff --git a/Biz/Ibb/Client.hs b/Biz/Ibb/Client.hs
new file mode 100644
index 0000000..e40ff36
--- /dev/null
+++ b/Biz/Ibb/Client.hs
@@ -0,0 +1,38 @@
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecordWildCards #-}
+{-# LANGUAGE NoImplicitPrelude #-}
+
+-- | Front-end
+--
+-- : exe ibb.js
+--
+-- : dep clay
+-- : dep miso
+-- : dep protolude
+-- : dep servant
+-- : dep text
+-- : dep aeson
+-- : dep containers
+-- : dep ghcjs-base
+module Biz.Ibb.Client where
+
+import           Alpha
+import           Biz.Ibb.Core     ( Action(..)
+                                                , see
+                                                , init
+                                                )
+import           Biz.Ibb.Move     ( move )
+import           Miso                           ( App(..)
+                                                , defaultEvents
+                                                , miso
+                                                )
+
+main :: IO ()
+main = miso $ \u -> App { model = init u, .. }
+ where
+  initialAction = FetchPeople
+  update        = move
+  view          = see
+  events        = defaultEvents
+  subs          = []
+  mountPoint    = Nothing