From 7a0e9725e691bd84cda8f6b169414581e5e1d4f1 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Thu, 29 Aug 2019 06:26:52 -0700 Subject: implement Network.RemoteData --- apex/Ibb.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'apex/Ibb.hs') diff --git a/apex/Ibb.hs b/apex/Ibb.hs index dd26d96..973960c 100644 --- a/apex/Ibb.hs +++ b/apex/Ibb.hs @@ -10,11 +10,11 @@ module Ibb where import Alpha import Biz.Ibb import Data.Maybe (fromMaybe) -import Data.Proxy import qualified Lucid as L import Lucid.Base import Miso import Network.HTTP.Types +import Network.RemoteData import Network.Wai import Network.Wai.Application.Static import Network.Wai.Handler.Warp @@ -25,7 +25,7 @@ import System.Environment (lookupEnv) main :: IO () main = do - say "running" + say "running: ibb" port <- read <$> fromMaybe "3000" <$> lookupEnv "PORT" :: IO Int -- cgit v1.2.3