perfectionist details and building

This commit is contained in:
Rachel Lambda Samuelsson 2022-06-26 19:09:57 +02:00
parent 47454593d7
commit 70f3992691
3 changed files with 5 additions and 9 deletions

View File

@ -22,7 +22,7 @@ library
other-modules:
-- other-extensions:
ghc-options: -Wall
build-depends: base ^>=4.14.1.0
build-depends: base
, wreq
, aeson
, lens-aeson
@ -44,7 +44,7 @@ executable kino
other-modules:
-- other-extensions:
ghc-options: -Wall -threaded
build-depends: base ^>=4.14.1.0
build-depends: base
, kino
hs-source-dirs: app
default-language: Haskell2010
@ -54,4 +54,4 @@ test-suite kino-test
type: exitcode-stdio-1.0
hs-source-dirs: test
main-is: MyLibTest.hs
build-depends: base ^>=4.14.1.0
build-depends: base

View File

@ -62,9 +62,7 @@ runApp = defaultMain app initialState
-- | The starting event which grabs the inital listing
startEvent :: AppS -> EventM Ident AppS
startEvent s = do
-- todo move unwrapping our response structure into a function
pure =<< liftIO (setMovies s)
startEvent = liftIO . setMovies
-- | The drawing function which defers to the proper function
-- from UI.Widgets

View File

@ -30,14 +30,12 @@ select = withAttr (attrName "selected")
-- movie to the widget second widget. Used by movieWidgets
widgetCons :: AppS -> JSONMovie -> Widget Ident -> Widget Ident
widgetCons s m w =
embed $ if Just m == (s ^. appDetails)
(<=> w) $ if Just m == (s ^. appDetails)
then select . visible $
if s ^. appExpanded
then expandedWidget m
else movieWidget m
else movieWidget m
where
embed = (<=> w)
-- | Returns a big list of all movies
movieWidgets :: AppS -> Widget Ident