fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

removed stubs for merge

Browse Source
This commit is contained in:
SJost 2019-02-27 17:42:46 +01:00
parent 801f1f1597
commit 9ca91b5ec8
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Utils/Form.hs
View File

@ -222,7 +222,7 @@ studyFeaturesPrimaryFieldFor uid = selectField $ do
E.on $ feature E.^. StudyFeaturesField E.==. field E.^. StudyTermsId E.on $ feature E.^. StudyFeaturesField E.==. field E.^. StudyTermsId
E.on $ feature E.^. StudyFeaturesDegree E.==. degree E.^. StudyDegreeId E.on $ feature E.^. StudyFeaturesDegree E.==. degree E.^. StudyDegreeId
E.where_ $ feature E.^. StudyFeaturesUser E.==. E.val uid E.where_ $ feature E.^. StudyFeaturesUser E.==. E.val uid
-- E.where_ $ feature E.^. StudyFeaturesValid E.==. E.val True -- TODO SJ REMOVE E.where_ $ feature E.^. StudyFeaturesValid E.==. E.val True
E.where_ $ feature E.^. StudyFeaturesType E.==. E.val FieldPrimary E.where_ $ feature E.^. StudyFeaturesType E.==. E.val FieldPrimary
return (feature E.^. StudyFeaturesId, degree, field) return (feature E.^. StudyFeaturesId, degree, field)
mkOptionList <$> mapM procOptions rawOptions mkOptionList <$> mapM procOptions rawOptions

1
src/Handler/Utils/StudyFeatures.hs
View File

@ -18,7 +18,6 @@ pStudyFeatures studyFeaturesUser studyFeaturesUpdated = do
void $ string "$$" void $ string "$$"
let let
studyFeaturesUpdated = error "undefined" --TODO SJ REMOVE
pStudyFeature = do pStudyFeature = do
_ <- pKey -- Meaning unknown at this time _ <- pKey -- Meaning unknown at this time
void $ char '!' void $ char '!'