Fix errors in example.

examples/base-path/app/Api.elm

@@ -2,12 +2,13 @@ module Api exposing (routes)
 
 import ApiRoute
 import DataSource exposing (DataSource)
+import Exception exposing (Throwable)
 import Html exposing (Html)
 import Route exposing (Route)
 
 
 routes :
-    DataSource (List Route)
+    DataSource Throwable (List Route)
     -> (Maybe { indent : Int, newLines : Bool } -> Html Never -> String)
     -> List (ApiRoute.ApiRoute ApiRoute.Response)
 routes getStaticRoutes htmlToString =

examples/base-path/app/Route/Index.elm

@@ -1,7 +1,7 @@
 module Route.Index exposing (ActionData, Data, Model, Msg, route)
 
 import DataSource exposing (DataSource)
-import DataSource.File
+import Exception exposing (Throwable)
 import Head
 import Head.Seo as Seo
 import Html.Styled as Html exposing (text)
@@ -45,7 +45,7 @@ type alias Data =
     ()
 
 
-data : DataSource Data
+data : DataSource Throwable Data
 data =
     DataSource.succeed ()
 

examples/base-path/app/Route/SubPage.elm

@@ -3,7 +3,7 @@ module Route.SubPage exposing (ActionData, Data, Model, Msg, route)
 import Css exposing (..)
 import Css.Global
 import DataSource exposing (DataSource)
-import DataSource.File
+import Exception exposing (Throwable)
 import Head
 import Head.Seo as Seo
 import Html.Styled as Html exposing (..)
@@ -46,7 +46,7 @@ type alias Data =
     ()
 
 
-data : DataSource Data
+data : DataSource Throwable Data
 data =
     DataSource.succeed ()
 

examples/base-path/app/Shared.elm

@@ -1,7 +1,8 @@
 module Shared exposing (Data, Model, Msg(..), SharedMsg(..), template)
 
-import DataSource
+import DataSource exposing (DataSource)
 import Effect exposing (Effect)
+import Exception exposing (Throwable)
 import Html exposing (Html)
 import Html.Styled
 import Pages.Flags
@@ -75,7 +76,7 @@ subscriptions _ _ =
     Sub.none
 
 
-data : DataSource.DataSource Data
+data : DataSource Throwable Data
 data =
     DataSource.succeed ()
 

examples/base-path/app/Site.elm

@@ -2,6 +2,7 @@ module Site exposing (config)
 
 import Cloudinary
 import DataSource exposing (DataSource)
+import Exception exposing (Throwable)
 import Head
 import MimeType
 import Pages.Manifest as Manifest
@@ -22,7 +23,7 @@ type alias Data =
     }
 
 
-head : DataSource (List Head.Tag)
+head : DataSource Throwable (List Head.Tag)
 head =
     [ Head.metaName "viewport" (Head.raw "width=device-width,initial-scale=1")
     , Head.metaName "mobile-web-app-capable" (Head.raw "yes")