Outline share detail page

modules/webapp/src/main/elm/Util/Http.elm

@@ -14,6 +14,7 @@ module Util.Http exposing
     , authTask
     , executeIn
     , jsonResolver
+    , shareGet
     , sharePost
     )
 
@@ -167,6 +168,24 @@ authGet req =
         }
 
 
+shareGet :
+    { url : String
+    , token : String
+    , expect : Http.Expect msg
+    }
+    -> Cmd msg
+shareGet req =
+    shareReq
+        { url = req.url
+        , token = req.token
+        , body = Http.emptyBody
+        , expect = req.expect
+        , method = "GET"
+        , headers = []
+        , tracker = Nothing
+        }
+
+
 authDelete :
     { url : String
     , account : AuthResult