getFunBindName :: HsDecl -> Maybe String
getFunBindName (HsPatBind _ (HsPVar (HsIdent funName))_ _) = Just funName
getFunBindName :: HsDecl -> Maybe String
getFunBindName (HsPatBind _ (HsPVar (HsIdent funName))_ _) = Just funName
getFunBindName (HsPatBind _ (HsPVar (HsIdent funName))_ _) = Just funName