Clean up syntax a little

Author: velveteer

src/Backdraft/Container/UI.purs

@@ -44,8 +44,8 @@ ui = H.lifecycleParentComponent { initialState, render, eval, initializer, final
       user <- lift $ onAuthChange
       H.put Loading
       case user of
-           Just _ -> H.put Authenticated
-           Nothing -> H.put NotAuthenticated
+        Just _ -> H.put Authenticated
+        Nothing -> H.put NotAuthenticated
       pure next
 
   initializer = Just $ H.action Init

src/Firebase/Authentication/Aff.purs

@@ -21,7 +21,6 @@ onAuthStateChanged
   :: forall eff
    . Firebase
   -> Aff ( firebase :: FIREBASE | eff ) (Maybe User)
-
 onAuthStateChanged fb = makeAff (\eb cb -> onAuthStateChangedImpl Just Nothing fb cb eb)
 
 foreign import signInWithPopupImpl

src/Firebase/DSL/Interpret/Firebase.purs

@@ -28,5 +28,5 @@ runFirebaseDSLF fb (Logout a) = do
   signOut fb
   pure a
 runFirebaseDSLF fb (OnAuthChange a) = do
-  user <- (onAuthStateChanged fb)
-  pure $ (a user)
+  user <- onAuthStateChanged fb
+  pure $ a user