almost working

1 files changed, 4 insertions, 2 deletions

diff --git a/aero/Ibb.hs b/aero/Ibb.hs
index 8376060..f7ee2af 100644
--- a/aero/Ibb.hs
+++ b/aero/Ibb.hs
@@ -1,16 +1,18 @@
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE RecordWildCards #-}
+{-# LANGUAGE NoImplicitPrelude #-}
 
 -- | Front-end
 module Ibb where
 
+import Alpha
 import Biz.Ibb.Move
 import Miso
 
 main :: IO ()
-main = miso $ \u -> App { model = Model u [], .. }
+main = miso $ \u -> App { model = init u, .. }
   where
-    initialAction = Nop
+    initialAction = FetchPeople
     update = move
     view   = see
     events = defaultEvents