README.md

@@ -60,11 +60,3 @@ _Do not look below this line_
 * can we lose this "if isJust lat && isJust lon && isJust ts" wart?
 * probably we should store points in a more efficient form than
  a singly-linked list
-
-* need a web server in haskell that
- - accepts file upload and parses the gpx file
- - serves the data points in some format elm can digest easily
-* need a database of some kind so the data can be saved
-* and boring stuff like auth[zn]
-* frontend can get data from backend
-* for DX, backend can serve the js files needed by frontend

app/Main.hs

@@ -1,27 +1,10 @@
-{-# LANGUAGE OverloadedStrings     #-}
-{-# LANGUAGE QuasiQuotes           #-}
-{-# LANGUAGE TemplateHaskell       #-}
-{-# LANGUAGE TypeFamilies          #-}
 module Main where
 
+import Control.Exception
 import Track(parseFile)
 import Data.List as List
 
-import           Yesod.Core
-
-data HelloWorld = HelloWorld
-
-mkYesod "HelloWorld" [parseRoutes|
-/ HomeR GET
-|]
-
-instance Yesod HelloWorld
-
-getHomeR :: Handler Html
-getHomeR = defaultLayout [whamlet|Hello World!|]
-
 main :: IO ()
 main = do
   points <- Track.parseFile "track.gpx"
-  putStrLn ("loaded " ++ (show (List.length points)) ++ " points from GPX")
-  warp 3000 HelloWorld
+  putStrLn ("loaded " ++ (show (List.length points)))

souplesse.cabal

@@ -71,7 +71,6 @@ executable souplesse
     build-depends:
         base ^>=4.18.2.1
       , souplesse-lib
-      , yesod-core == 1.6.25.1
 
     -- Directories containing source files.
     hs-source-dirs:   app