Minor tweaks

Author: paf31

css/index.css

@@ -148,16 +148,16 @@ body {
     display: none;
   }
 
-  #editor_view[data-view-mode="code"] #column2 {
+  #editor_view[data-view-mode="code"] #column2_wrapper {
     display: none;
   }
 
-#column1, #column2 {
+#column1, #column2_wrapper {
   position: relative;
   flex: 1;
 }
 
-#column2 {
+#column2_wrapper {
   position: relative;
   -webkit-overflow-scrolling: touch;
   overflow: auto;

index.html

@@ -111,10 +111,9 @@
         <div class="separator">
         </div>
 
-        <div id="column2">
-        </div>
-
-        <div id="loading">
+        <div id="column2_wrapper">
+          <div id="column2"></div>
+          <div id="loading"></div>
         </div>
       </div>
     </div>

js/index.js

@@ -277,13 +277,13 @@ loadFromGist
    . String
   -> BackendConfig
   -> ({ code :: String, backend :: BackendConfig }
-      -> Eff ( confirm :: CONFIRM
+      -> Eff ( alert :: ALERT
              , console :: CONSOLE
              , dom :: DOM
              , timer :: TIMER
              | eff
              ) Unit)
-  -> Eff ( confirm :: CONFIRM
+  -> Eff ( alert :: ALERT
          , console :: CONSOLE
          , dom :: DOM
          , timer :: TIMER
@@ -293,21 +293,23 @@ loadFromGist id_ backend k = do
   runContT (runExceptT (getGistById id_ >>= \gi -> tryLoadFileFromGist gi "Main.purs")) $
     case _ of
       Left err -> do
-        error ("Unable to load gist metadata or contents: " <> err)
+        window >>= alert err
         k { code: "", backend }
       Right code -> k { code, backend }
 
 withSession
   :: forall eff
    . String
   -> ({ code :: String, backend :: BackendConfig }
-      -> Eff ( confirm :: CONFIRM
+      -> Eff ( alert :: ALERT
+             , confirm :: CONFIRM
              , console :: CONSOLE
              , dom :: DOM
              , timer :: TIMER
              | eff
              ) Unit)
-  -> Eff ( confirm :: CONFIRM
+  -> Eff ( alert :: ALERT
+         , confirm :: CONFIRM
          , console :: CONSOLE
          , dom :: DOM
          , timer :: TIMER

src/Main.purs

@@ -5,7 +5,7 @@ exports.getGistById_ = function(id, done, fail) {
     url: 'https://api.github.com/gists/' + id,
     dataType: 'json'
   }).done(done).fail(function(err) {
-    fail(err.statusText);
+    fail("Unable to load Gist metadata");
   });
 }