Minor changes

dfordivam · Jun 20, 2018 · 77ccedf · 77ccedf
1 parent 35987c0
commit 77ccedf
Show file tree

Hide file tree

Showing 5 changed files with 5 additions and 6 deletions.
diff --git a/android/app/Main.hs b/android/app/Main.hs
@@ -16,5 +16,5 @@ import Protolude
 main :: IO ()
 main =
     mainWidgetWithHead'
-      headWidget
-      (\_ -> topWidget)
+      (headWidget
+      , (\_ -> topWidget))
diff --git a/android/src/KanjiBrowser.hs b/android/src/KanjiBrowser.hs
@@ -256,7 +256,6 @@ kanjiDetailWindow (k,vSt,rads) = divClass "box" $ do
           text (unKanji $ k ^. kanjiCharacter)
 
       divClass "level-right" $ divClass "level-item" $ elClass "span" "" $ do
-        text "Radicals: "
         forM rads $ \t -> elClass "span" "tag is-medium is-info" $ text t
 
     divClass "tile" $ do

diff --git a/android/src/LoginWidget.hs b/android/src/LoginWidget.hs
@@ -107,7 +107,7 @@ showLogin incorrectEv = elClass "section" "hero is-fullheight" $ do
   return (ev, toggleEv)
 
 checkLogin lEv = do
-  let url s = "http://192.168.0.31:3000/websocket/app/" <> s
+  let url s = "http://192.168.2.60:3000/websocket/app/" <> s
   r <- getAndDecode (url <$> lEv)
   let incorrectEv = fforMaybe r (\case
              (Just True) -> Nothing

diff --git a/android/src/ReadingPane.hs b/android/src/ReadingPane.hs
@@ -424,7 +424,7 @@ verticalReader rs (docId, _, startParaMaybe, endParaNum, annText) = do
               (return never <$ stopTicks)
             tickW = do
               ev <- getPostBuild
-              de <- delay 1.5 $ leftmost [ev, () <$ evVisible]
+              de <- delay 0.5 $ leftmost [ev, () <$ evVisible]
               return $ de
         t <- widgetHold init
           (init <$ startTicksAgain)

diff --git a/android/src/TopWidget.hs b/android/src/TopWidget.hs
@@ -71,7 +71,7 @@ afterLoginWidget :: MonadWidget t m
   => Text
   -> m (Event t (Maybe Text), Event t ())
 afterLoginWidget secret = do
-  let url = "ws://192.168.0.31:3000/websocket/app/" <> secret
+  let url = "ws://192.168.2.60:3000/websocket/app/" <> secret
   ((ev,d),wsConn) <- withWSConnection
     url
     never -- close event