From f4b8c0df041b063c0b47d2ec6c818a9c202fd833 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Wed, 15 Apr 2020 09:54:10 -0700
Subject: Re-namespacing

Moving away from the DNS-driven namespacing toward more condensed names,
mostly because I don't like typing so much.
---
 Biz/Ibb/Client.hs | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100644 Biz/Ibb/Client.hs

(limited to 'Biz/Ibb/Client.hs')

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
-- 
cgit v1.2.3