souplesse

commit 5995a4083af5c5d99a6d25b882747dc5c207d05b
parent f5811078691e3d3a0c43e985bc641a4f48d237f2
Author: Daniel Barlow <dan@telent.net>
Date:   Mon,  4 Nov 2024 23:36:10 +0000

remove unused names

Diffstat:
M
app/Main.hs
 | 
9
+++------

1 file changed, 3 insertions(+), 6 deletions(-)
diff --git a/app/Main.hs b/app/Main.hs
@@ -8,11 +8,8 @@ module Main where
 
 import Data.ByteString.Lazy as BS
 import Data.List as List
-import Data.Text as T
 import Debug.Trace (traceShow)
 import Track (parseBS, parseFile)
--- import Import
-
 import Yesod.Core
 import Yesod.Form.Fields
 import Yesod.Form.Functions
@@ -41,7 +38,7 @@ instance Yesod Souplesse
 
 getCalendarR :: Handler Html
 getCalendarR = do
-  (formWidget, formEnctype) <- generateFormPost uploadForm
+  (formWidget, _) <- generateFormPost uploadForm
   defaultLayout
     [whamlet|
 <h1>Calendar
@@ -92,14 +89,14 @@ instance RenderMessage Souplesse FormMessage where
 
 postUploadR :: Handler Html
 postUploadR = do
-  ((result, widget), enctype) <- runFormPost uploadForm
+  ((result, _), _) <- runFormPost uploadForm
   case result of
     FormSuccess upload -> do
       bs <- fileSourceByteString $ fileInfo upload
       case Track.parseBS (fromStrict bs) of
         Right points ->
           defaultLayout [whamlet|<p>#{List.length points} points - thanks!|]
-        Left e ->
+        Left _ ->
           defaultLayout
             [whamlet|<p>parse error ]
     FormMissing ->