Form-Identifiers introduced

src/Handler/Course.hs

@@ -233,8 +233,7 @@ courseToForm cEntity = CourseForm
     course = entityVal cEntity
       
 newCourseForm :: Maybe CourseForm -> Form CourseForm
-newCourseForm template = -- identifyForm "newCourseForm" $ 
+newCourseForm template = identForm FIDcourse $ \html -> do
-  \html -> do
     -- mopt hiddenField    
     --     cidKey <- getsYesod appCryptoIDKey
     --     courseId <- runMaybeT $ do

src/Handler/Utils/Form.hs

@@ -24,6 +24,17 @@ import Yesod.Form.Bootstrap3
 
 import Web.PathPieces (showToPathPiece, readFromPathPiece)
 
+------------------------------------------------
+-- Unique Form Identifiers to avoid accidents --
+------------------------------------------------
+
+data FormIdentifier = FIDcourse
+  deriving (Enum, Eq, Ord, Bounded, Read, Show)
+
+
+identForm :: FormIdentifier -> Form a -> Form a  
+identForm fid = identifyForm (T.pack $ show fid)
+
 
 ----------------------------
 -- Buttons (new version ) --