diff options
author | Ben Sima <ben@bsima.me> | 2019-11-02 18:29:27 -0700 |
---|---|---|
committer | Ben Sima <ben@bsima.me> | 2019-11-02 18:29:27 -0700 |
commit | 85b07273a23e2c29926f7575da0d938345c58c3f (patch) | |
tree | fb2dcf6676df59a6b41fa96b973a16b6445ddd7c | |
parent | 521245f0381bfac43a527275d86092ae7cb9ce51 (diff) |
format imports in ibb files
-rw-r--r-- | Com/InfluencedByBooks/Aero.hs | 4 | ||||
-rw-r--r-- | Com/InfluencedByBooks/Apex.hs | 38 | ||||
-rw-r--r-- | Com/InfluencedByBooks/Core.hs | 2 | ||||
-rw-r--r-- | Com/InfluencedByBooks/Keep.hs | 19 | ||||
-rw-r--r-- | Com/InfluencedByBooks/Move.hs | 4 |
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 |