diff options
Diffstat (limited to 'Biz/Ibb/Client.hs')
| -rw-r--r-- | Biz/Ibb/Client.hs | 38 |
1 files changed, 20 insertions, 18 deletions
diff --git a/Biz/Ibb/Client.hs b/Biz/Ibb/Client.hs index e40ff36..89e0ffc 100644 --- a/Biz/Ibb/Client.hs +++ b/Biz/Ibb/Client.hs @@ -16,23 +16,25 @@ -- : 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 - ) +import Alpha +import Biz.Ibb.Core + ( Action (..), + init, + see, + ) +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 +main = miso $ \u -> App {model = init u, ..} + where + initialAction = FetchPeople + update = move + view = see + events = defaultEvents + subs = [] + mountPoint = Nothing |