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.
---
 Com/InfluencedByBooks/Client.hs | 38 --------------------------------------
 1 file changed, 38 deletions(-)
 delete mode 100644 Com/InfluencedByBooks/Client.hs

(limited to 'Com/InfluencedByBooks/Client.hs')

diff --git a/Com/InfluencedByBooks/Client.hs b/Com/InfluencedByBooks/Client.hs
deleted file mode 100644
index 8c70a04..0000000
--- a/Com/InfluencedByBooks/Client.hs
+++ /dev/null
@@ -1,38 +0,0 @@
-{-# 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 Com.InfluencedByBooks.Client where
-
-import           Alpha
-import           Com.InfluencedByBooks.Core     ( Action(..)
-                                                , see
-                                                , init
-                                                )
-import           Com.InfluencedByBooks.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