summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBen Sima <ben@bsima.me>2019-11-02 18:29:27 -0700
committerBen Sima <ben@bsima.me>2019-11-02 18:29:27 -0700
commit85b07273a23e2c29926f7575da0d938345c58c3f (patch)
treefb2dcf6676df59a6b41fa96b973a16b6445ddd7c
parent521245f0381bfac43a527275d86092ae7cb9ce51 (diff)
format imports in ibb files
-rw-r--r--Com/InfluencedByBooks/Aero.hs4
-rw-r--r--Com/InfluencedByBooks/Apex.hs38
-rw-r--r--Com/InfluencedByBooks/Core.hs2
-rw-r--r--Com/InfluencedByBooks/Keep.hs19
-rw-r--r--Com/InfluencedByBooks/Move.hs4
5 files changed, 33 insertions, 34 deletions
diff --git a/Com/InfluencedByBooks/Aero.hs b/Com/InfluencedByBooks/Aero.hs
index 92d071d..bd996c6 100644
--- a/Com/InfluencedByBooks/Aero.hs
+++ b/Com/InfluencedByBooks/Aero.hs
@@ -5,9 +5,9 @@
-- | Front-end
module Com.InfluencedByBooks.Aero where
-import Com.Simatime.Alpha
-import Com.InfluencedByBooks.Move (move)
import Com.InfluencedByBooks.Core (Action(..), see, init)
+import Com.InfluencedByBooks.Move (move)
+import Com.Simatime.Alpha
import Miso (App(..), defaultEvents, miso)
main :: IO ()
diff --git a/Com/InfluencedByBooks/Apex.hs b/Com/InfluencedByBooks/Apex.hs
index 20b4e65..7bf597a 100644
--- a/Com/InfluencedByBooks/Apex.hs
+++ b/Com/InfluencedByBooks/Apex.hs
@@ -10,29 +10,29 @@
-- | Server
module Com.InfluencedByBooks.Apex where
-import Com.Simatime.Alpha
-import Com.InfluencedByBooks.Core
+import qualified Clay
+import Com.InfluencedByBooks.Core
import qualified Com.InfluencedByBooks.Keep as Keep
import qualified Com.InfluencedByBooks.Look as Look
-import qualified Clay
-import qualified Data.Text.Lazy as Lazy
-import qualified Data.Text.Lazy.Encoding as Lazy
-import Data.Maybe (fromMaybe)
-import Data.Acid (AcidState)
+import Com.Simatime.Alpha
+import Com.Simatime.Network
+import Data.Acid (AcidState)
import qualified Data.Acid.Abstract as Acid
+import Data.Maybe (fromMaybe)
+import qualified Data.Text.Lazy as Lazy
+import qualified Data.Text.Lazy.Encoding as Lazy
import qualified Lucid as L
-import Lucid.Base
-import Miso
-import Network.HTTP.Media ((//), (/:))
-import Network.HTTP.Types
-import Com.Simatime.Network
-import Network.Wai
-import Network.Wai.Application.Static
-import Network.Wai.Handler.Warp
-import Network.Wai.Middleware.Gzip
-import Network.Wai.Middleware.RequestLogger
-import Servant
-import System.Environment (lookupEnv)
+import Lucid.Base
+import Miso
+import Network.HTTP.Media ((//), (/:))
+import Network.HTTP.Types
+import Network.Wai
+import Network.Wai.Application.Static
+import Network.Wai.Handler.Warp
+import Network.Wai.Middleware.Gzip
+import Network.Wai.Middleware.RequestLogger
+import Servant
+import System.Environment (lookupEnv)
main :: IO ()
main = do
diff --git a/Com/InfluencedByBooks/Core.hs b/Com/InfluencedByBooks/Core.hs
index 9bd2353..1a8bf6f 100644
--- a/Com/InfluencedByBooks/Core.hs
+++ b/Com/InfluencedByBooks/Core.hs
@@ -8,13 +8,13 @@
module Com.InfluencedByBooks.Core where
import Com.Simatime.Alpha
+import Com.Simatime.Network
import Data.Aeson hiding (Success)
import Data.Data (Data, Typeable)
import Data.Text (Text)
import GHC.Generics (Generic)
import Miso
import Miso.String
-import Com.Simatime.Network
import Servant.API
import Servant.Links
diff --git a/Com/InfluencedByBooks/Keep.hs b/Com/InfluencedByBooks/Keep.hs
index 0bc527a..b84d4d8 100644
--- a/Com/InfluencedByBooks/Keep.hs
+++ b/Com/InfluencedByBooks/Keep.hs
@@ -12,20 +12,19 @@
--
module Com.InfluencedByBooks.Keep where
-import Com.InfluencedByBooks.Core (Person(..), Book(..))
-import Control.Monad.State (get, put)
-import Control.Monad.Reader (ask)
-import Data.Acid (Update, makeAcidic)
+import Com.InfluencedByBooks.Core (Person(..), Book(..))
+import qualified Com.InfluencedByBooks.Influencers as Influencers
+import Control.Monad.Reader (ask)
+import Control.Monad.State (get, put)
+import Data.Acid (Update, makeAcidic)
import qualified Data.Acid as Acid
-import Data.Data (Data, Typeable)
-import Data.IxSet (Indexable(..), IxSet, ixFun, ixSet)
+import Data.Data (Data, Typeable)
+import Data.IxSet (Indexable(..), IxSet, ixFun, ixSet)
import qualified Data.IxSet as IxSet
-import Data.SafeCopy
-import Data.Text (Text)
+import Data.SafeCopy
+import Data.Text (Text)
import qualified Data.Text as Text
-import qualified Com.InfluencedByBooks.Influencers as Influencers
-
-- * Keep
-- | Main database. Need to think of a better name for this.
diff --git a/Com/InfluencedByBooks/Move.hs b/Com/InfluencedByBooks/Move.hs
index d372da6..3baafc6 100644
--- a/Com/InfluencedByBooks/Move.hs
+++ b/Com/InfluencedByBooks/Move.hs
@@ -8,13 +8,13 @@ module Com.InfluencedByBooks.Move (
, fetchPeople
) where
+import Com.InfluencedByBooks.Core as Core
import Com.Simatime.Alpha
+import Com.Simatime.Network
import Data.Aeson
-import Com.InfluencedByBooks.Core as Core
import JavaScript.Web.XMLHttpRequest (Request(..), Method(GET), RequestData(NoData), contents, xhrByteString)
import Miso
import Miso.String
-import Com.Simatime.Network
move :: Action -> Model -> Effect Action Model
move Nop m = noEff m