minor additions

kino.cabal

@@ -20,6 +20,7 @@ library
                     , Torrent
     other-modules:
     -- other-extensions:
+    ghc-options:      -Wall
     build-depends:    base       ^>=4.14.1.0
                     , wreq
                     , aeson
@@ -36,6 +37,7 @@ executable kino
     main-is:          Main.hs
     -- other-modules:
     -- other-extensions:
+    ghc-options:      -Wall
     build-depends:    base ^>=4.14.1.0
                     , kino
                     , brick

src/JSONTypes.hs

@@ -5,8 +5,6 @@ module JSONTypes where
 import Data.Aeson
 import Data.Aeson.Types
 import qualified Data.Text as T
-import Data.Aeson.Lens (key, nth)
-import qualified Data.ByteString.Lazy.Internal as BL
 
 data JSONResponse d = JSONResponse
   { resp_status :: T.Text

src/Request.hs

@@ -9,8 +9,6 @@ import qualified Network.Wreq as WR (Options)
 import Control.Lens
 import Data.Aeson
 import Data.Text as T
-import Data.Aeson.Lens (key, nth)
-import qualified Data.ByteString.Lazy as BL
 
 makeRequest :: (FromJSON a) => String -> WR.Options -> IO (Either T.Text a)
 makeRequest url opts = do

src/UI.hs

@@ -3,22 +3,36 @@ module UI where
 import Brick
 import Brick.Main
 
-data Identifiers = Nil
+data Ident = Nil
 
-data AppState = Null
+data AppS = Null
 
-app :: App AppState () Identifiers
+app :: App AppS () Ident
 app = App
   { appDraw = draw
   , appChooseCursor = chooseCursor
-  , appHandleEvent = eventHandler
+  , appHandleEvent  = eventHandler
+  , appStartEvent   = startEvent
+  , appAttrMap      = attributeMap
   }
 
+runApp :: IO AppS
+runApp = defaultMain app initialState
 
+initialState :: AppS
+initialState = undefined
+
+startEvent :: EventM Ident (Next Apps)
+startEvent = return -- replace if needed
+
+draw :: AppS -> [Widget Ident]
 draw = undefined
 
-chooseCursor = undefined
+chooseCursor :: AppS -> [CursorLocation Ident] -> Maybe (CursorLocation Ident)
+chooseCursor = showFirstCursor -- replace if needed
 
+eventHandler :: AppS -> BrickEvent Identifier () -> EventM Ident (Next AppS)
 eventHandler = undefined
 
+attributeMap :: AttrMap
 attributeMap = undefined