perfectionist details and building

kino.cabal

@@ -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

src/Kino/UI.hs

@@ -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

src/Kino/UI/Widgets.hs

@@ -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