Synnefo » snf-ganeti

                  , genOpLowerStrip

-- | Strips @Op@ from the constructor name, converts to lower-case

-- and adds a given prefix.

genOpLowerStrip :: String -> Name -> String -> Q [Dec]

genOpLowerStrip prefix =

    genConstrToStr (liftM ((prefix ++) . map toLower . deCamelCase)

                    . stripPrefixM "Op")

  where

    stripPrefixM :: String -> String -> Q String

    stripPrefixM pfx s = maybe (fail $ s ++ " doesn't start with " ++ pfx)

                               return

                         $ stripPrefix pfx s