On Tue, 7 Jul 2015 at 11:20 'Petr Pudlak' via ganeti-devel < [email protected]> wrote:
> Signed-off-by: Petr Pudlak <[email protected]> > --- > src/Ganeti/THH.hs | 5 +++++ > 1 file changed, 5 insertions(+) > > diff --git a/src/Ganeti/THH.hs b/src/Ganeti/THH.hs > index 27b3c17..ce51826 100644 > --- a/src/Ganeti/THH.hs > +++ b/src/Ganeti/THH.hs > @@ -73,6 +73,7 @@ module Ganeti.THH ( declareSADT > , buildParam > , genException > , excErrMsg > + , ssconfConstructorName > ) where > > import Control.Arrow ((&&&), second) > @@ -1547,3 +1548,7 @@ genLoadExc tname sname opdefs = do > let clause2 = Clause [VarP arg_else] (NormalB fail_type) [] > sigt <- [t| JSON.JSValue -> JSON.Result $(conT tname) |] > return $ (SigD fname sigt, FunD fname [clause1, clause2]) > + > +-- | Compute the ssconf constructor name from its file name. > +ssconfConstructorName :: String -> String > +ssconfConstructorName = camelCase . ("s_s_" ++) > -- > 2.4.3.573.g4eafbef > > LGTM, thanks -- Helga Velroyen Software Engineer [email protected] Google Germany GmbH Dienerstraße 12 80331 München Geschäftsführer: Graham Law, Christine Elizabeth Flores Registergericht und -nummer: Hamburg, HRB 86891 Sitz der Gesellschaft: Hamburg Diese E-Mail ist vertraulich. Wenn Sie nicht der richtige Adressat sind, leiten Sie diese bitte nicht weiter, informieren Sie den Absender und löschen Sie die E-Mail und alle Anhänge. Vielen Dank. This e-mail is confidential. If you are not the right addressee please do not forward it, please inform the sender, and please erase this e-mail including any attachments. Thanks.
