GET /albums

Albums.fs

@@ -0,0 +1,26 @@
+module FreyaMusicStore.Albums
+
+open System
+
+open Arachne.Http
+
+open Freya.Core
+open Freya.Router
+open Freya.Machine
+open Freya.Machine.Extensions.Http
+
+type Albums = 
+    { Albums : Album.AlbumDetails [] }
+
+let get =
+    freya {
+        let ctx = Db.getContext()
+        let albums = Db.getAlbumsDetails ctx |> Array.map Album.AlbumDetails.fromDb
+        return! write ("albums", { Albums = albums } )
+    }
+
+let pipe = 
+    freyaMachine {
+        including common
+        methodsSupported ( freya { return [ GET ] } ) 
+        handleOk (fun _ -> get) } |> FreyaMachine.toPipeline

App.fs

@@ -15,6 +15,7 @@ open Freya.Router
 let musicStore =
     freyaRouter {
         resource (UriTemplate.Parse "/") Home.pipe
+        resource (UriTemplate.Parse "/albums") Albums.pipe
         resource (UriTemplate.Parse "/album/{id}") Album.pipe
         resource (UriTemplate.Parse "/genres") Genres.pipe
         resource (UriTemplate.Parse "/genre/{name}") Genre.pipe } |> FreyaRouter.toPipeline

Db.fs

@@ -33,4 +33,7 @@ let getAlbumDetails id (ctx : DbContext) : AlbumDetails option =
         for album in ctx.``[dbo].[AlbumDetails]`` do
             where (album.AlbumId = id)
             select album
-    } |> firstOrNone
+    } |> firstOrNone
+
+let getAlbumsDetails (ctx : DbContext) : AlbumDetails [] = 
+    ctx.``[dbo].[AlbumDetails]`` |> Seq.toArray

FreyaMusicStore.fsproj

@@ -58,6 +58,7 @@
     <Compile Include="Common.fs" />
     <Compile Include="Home.fs" />
     <Compile Include="Album.fs" />
+    <Compile Include="Albums.fs" />
     <Compile Include="Genre.fs" />
     <Compile Include="Genres.fs" />
     <Compile Include="StaticFiles.fs" />
@@ -71,6 +72,9 @@
     <None Include="album.cshtml">
       <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
     </None>
+    <None Include="albums.cshtml">
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </None>
     <None Include="genres.cshtml">
       <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
     </None>

albums.cshtml

@@ -0,0 +1,59 @@
+@{
+    Layout = "mylayout";
+}
+
+@helper Truncate(string input, int length)
+{
+    if (input.Length <= length)
+    {
+        @input
+    }
+    else
+    {
+        @input.Substring(0, length)<text>...</text>
+    }
+}
+
+@section Main
+{
+<h2>Index</h2>
+<table>
+    <tr>
+        <th>
+            Genre
+        </th>
+        <th>
+            Artist
+        </th>
+        <th>
+            Title
+        </th>
+        <th>
+            Price
+        </th>
+        <th></th>
+    </tr>
+
+    @foreach (var item in Model.Albums)
+    {
+        <tr>
+            <td>
+                @item.Genre
+            </td>
+            <td>
+                @Truncate(item.Artist, 25)
+            </td>
+            <td>
+                @Truncate(item.Title, 25)
+            </td>
+            <td>
+                @item.Price
+            </td>
+            <td>
+
+            </td>
+        </tr>
+    }
+
+</table>
+}

index.cshtml

@@ -10,8 +10,9 @@
         <ul id="navlist">
             <li class="first"><a href="/" id="current">Home</a></li>
             <li><a href="/genres">Genres</a></li>
+            <li><a href="/albums">Albums</a></li>
             <!-- <li> Html.RenderAction("CartSummary", "ShoppingCart");}</li>
-            <li><a href="Url.Content("~/StoreManager/")">Admin</a></li> -->
+             -->
         </ul>
     </div>