fix indents for nonConceal and update TODO

TODO

@@ -1,5 +1,3 @@
-COMMENT YOUR CODE!!!!!!!
-
 make it look nicer :)
 
 fix import/exports to be conservative

src/UI.hs

@@ -82,8 +82,7 @@ scroll d s = s & appCursor .~ newCursor
   where
     upperLimit = fromMaybe 0 (subtract 1 . length . movies <$> s ^. appListing)
     new        = case d of { Up -> (subtract 1); Down -> (+1) }
-    oldCursor = s ^. appCursor
-    newCursor = max 0 (min upperLimit (new oldCursor))
+    newCursor  = max 0 (min upperLimit (new (s ^. appCursor)))
     
 
 -- | Given a String, modify our state so that string