iOS status bar styling (uncommitted change)

+ some refactoring
srid · Jun 20, 2015 · 920db42 · 920db42
1 parent 5133b34
commit 920db42
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/index.html b/index.html
@@ -7,6 +7,8 @@
   <meta name="viewport" content="width=device-width, initial-scale=1.0, maximum-scale=1.0, minimum-scale=1.0, user-scalable=no, minimal-ui">
   <meta name="apple-mobile-web-app-capable" content="yes">
   <meta name="apple-mobile-web-app-title" content="Chronicle">
+  <meta name="apple-mobile-web-app-status-bar-style" content="black-translucent">
+  <meta name="mobile-web-app-capable" content="yes">
 
   <!-- jQuery (necessary for Bootstrap's JavaScript plugins) -->
   <script src="//ajax.googleapis.com/ajax/libs/jquery/1.11.2/jquery.min.js"></script>

diff --git a/src/Chronicle/Main.elm b/src/Chronicle/Main.elm
@@ -38,8 +38,9 @@ request =
 
 runAndSend : Signal.Mailbox Controller.Action -> Controller.Request -> Task Http.Error ()
 runAndSend mailbox r =
-  withErrorLogging <| Controller.run (log "[REQUEST]" r)
-      `andThen` (\action -> Signal.send mailbox.address <| logAction "[FORWARD ACTION]" action)
+  withErrorLogging
+  <| Controller.run (log "[REQUEST]" r)
+       `andThen` (logAction "[FORWARD ACTION]" >> Signal.send mailbox.address)
 
 withErrorLogging : Task x a -> Task x a
 withErrorLogging task =