more updates

test/Handler/HomeSpec.hs

@@ -12,7 +12,7 @@ spec = withApp $ do
         request $ do
             setMethod "POST"
             setUrl HomeR
-            addNonce
+            addToken
             fileByLabel "Choose a file" "test/Spec.hs" "text/plain" -- talk about self-reference
             byLabel "What's on the file?" "Some Content"
 

test/TestImport.hs

@@ -5,7 +5,7 @@ module TestImport
 
 import Application           (makeFoundation)
 import ClassyPrelude         as X hiding (Handler)
-import Database.Persist      as X hiding (get)
+import Database.Persist      as X hiding (get, delete, deleteBy)
 import Database.Persist.Sql  (SqlPersistM, runSqlPersistMPool)
 import Foundation            as X
 import Model                 as X