From 1cfeff547d80eb61a1db8102f06011e73dd2fd9f Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Wed, 27 Mar 2019 16:24:07 -0700
Subject: almost working

---
 aero/Ibb.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'aero')

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
-- 
cgit v1.2.3