From a44720cc8ea0f93584c0dbff22075b798bd34ee9 Mon Sep 17 00:00:00 2001 From: picca Date: Mon, 27 Nov 2017 15:50:08 +0000 Subject: Added a comment --- ...ent_2_ab81471e6466944810906284f9a523cc._comment | 66 ++++++++++++++++++++++ 1 file changed, 66 insertions(+) create mode 100644 doc/forum/How_to_add_a_privdata_for_Gitlab_cookies/comment_2_ab81471e6466944810906284f9a523cc._comment (limited to 'doc/forum/How_to_add_a_privdata_for_Gitlab_cookies/comment_2_ab81471e6466944810906284f9a523cc._comment') diff --git a/doc/forum/How_to_add_a_privdata_for_Gitlab_cookies/comment_2_ab81471e6466944810906284f9a523cc._comment b/doc/forum/How_to_add_a_privdata_for_Gitlab_cookies/comment_2_ab81471e6466944810906284f9a523cc._comment new file mode 100644 index 00000000..a9b50d81 --- /dev/null +++ b/doc/forum/How_to_add_a_privdata_for_Gitlab_cookies/comment_2_ab81471e6466944810906284f9a523cc._comment @@ -0,0 +1,66 @@ +[[!comment format=mdwn + username="picca" + avatar="http://cdn.libravatar.org/avatar/7e61c80d28018b10d31f6db7dddb864c" + subject="comment 2" + date="2017-11-27T15:50:08Z" + content=""" +Hello, joey + +I try this but It ends up with an error during the compilation + + blabla' :: Property (HasInfo + DebianLike) + blabla' = withPrivData (Password \"xxxxxxxxxxxxxx\") (Context \"yyyyyyyyyyyyy\") $ \getdata -> + property' \"blabla\" $ \w -> getdata $ \privdata -> ensureProperty w + (buildAndInstall (Git (\"https://toto:\" ++ (privDataVal privdata) ++ \"@xxxxxxxxxxxxxx\") Nothing \"blabla\")) + + blabla :: Property (HasInfo + DebianLike) + blabla = withOS \"Install BlaBla Stack\" $ \w o -> case o of + (Just (System (Debian _ Unstable) _)) -> ensureProperty w $ unstable + (Just (System (Debian _ (Stable \"jessie\")) _)) -> ensureProperty w $ jessie + (Just (System (Debian _ (Stable \"stretch\")) _)) -> ensureProperty w $ stretch + _ -> error $ \"Blabla installation not yet implemented on \" ++ show o + where + unstable :: Property (HasInfo + DebianLike) + unstable = propertyList \"Stretch Blabla\" $ props + & Apt.installed [\"python3-gpyfft\"] + & blabla' + + jessie :: Property (HasInfo + Debian) + jessie = propertyList \"Jessie Blabla\" $ props + & Apt.installedBackport [\"cython\", \"cython3\"] + & Apt.installedBackport [\"python-sphinx\", \"python3-sphinx\"] + & buildAndInstall (Backport \"appdirs\" Nothing Nothing) + & buildAndInstall (Backport \"pytools\" Nothing Nothing) + & buildAndInstall (Backport \"pyopencl\" Nothing (Just \"nodocs\")) + & buildAndInstall (Backport \"clfft\" Nothing Nothing) + & buildAndInstall (Backport \"gpyfft\" (Just \"nostrip\") Nothing) + & blabla' + + stretch :: Property (HasInfo + DebianLike) + stretch = propertyList \"Stretch Blabla\" $ props + & buildAndInstall (Backport \"gpyfft\" (Just \"nostrip\") Nothing) + & blabla' + + + +here the error + + src/propellor-config.hs:810:60-75: error: + • Couldn't match type ‘'False’ with ‘'True’ + arising from a use of ‘ensureProperty’ + • In the expression: ensureProperty w + In the expression: ensureProperty w $ unstable + In a case alternative: + (Just (System (Debian _ (Unstable)) _)) + -> ensureProperty w $ stretch + +It seems to me that this is an error with the HasInfo, but I could not manage to solve this problem by myself. + +do you have a Idea in ordert o solve this ? + +thanks + +Frederic + + +"""]] -- cgit v1.2.3